Type error on merged cells in Excel for display message ability

Question

I have some VBA code in Excel that allows me to view the contents of a cell when I select it. Here's an example:

Here is the code for this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.InputMessage = Target.Text
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
End Sub

However, when I select a merged cell, I am getting the following error:

How can I run this code to work on merged cells?

Answer 1

.InputMessage = Target.Text is giving the error. The problem is that the target is multiple cells and these do not have the property Text . A quick fix would be to take the first cell of the target:

.InputMessage = Target.Cells(1).Text

Thus, if it is a single cell it is still the first one and if it is merged, it works ok:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
        .InputMessage = Target.Cells(1).Text
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub