Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Target.Column & " : " & Target.Row
End Sub