=ROW()=CELL("row")


=COLUMN()=CELL("col")




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub