Díky moc.

Pro úplnost přidám i verze pro "pouze" číslo řádku nebo sloupce v buňce A1 (podle fokusu):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells(1, 1) = Target.Row
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells(1, 1) = Target.Column
End Sub