Current Cell Position:-

Sometimes we need to know the current cell position. This would do the trick.

Sub MyPosition()
       myRow = ActiveCell.Row
       myCol = ActiveCell.Column
       Msgbox myRow & "," & myCol
End Sub