Boa tarde pessoal.

Tenho o código que funciona perfeitamente conforme clico em alguma célula.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If (Not Intersect(Target, Range("U8:V9")) Is Nothing) _
    And (Target.Cells.Count = 1) Then
      Me.Range("D2").Value = ActiveCell.Column
  End If
End Sub

Mas como nunca estamos satisfeitos, não funciona quando alguma célula no range está mesclada.

Exemplo a célula (U8 e U9) e (V8 e V9) estão mescladas, não traz na D2 o valor da coluna.

Também para linhas, exemplo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If (Not Intersect(Target, Range("U8:V9")) Is Nothing) _
    And (Target.Cells.Count = 1) Then
      Me.Range("D2").Value = ActiveCell.Row
  End If
End Sub

Se estiver mesclado para trazer o número da linha também!

Alguém manja dos paranaues ?