One way:

If ActiveCell.Address(False, False) = "A1" Then
Msgbox "Column: " & ActiveCell.Column & vbNewLine & _
"Row: " & ActiveCell.Row & vbNewLine & _
"Address: " & ActiveCell.Address
End If

In article ,
"John Collins" wrote:

Hi
The question is: How to find if a specific cell has been selected and show
its Column, Row and Address?

Thank for your time.