Row and Column index for Active Cell

[balamus]

Hi all,

How can I get the row and column index for an active cell, and store it as a variable?

regards
bala

[dominicb]

Good afternoon Bala

This code should do the trick:

Sub Example()
usrcell = ActiveWindow.RangeSelection.Address
a = Range(usrcell).Row
b = Range(usrcell).Column
MsgBox "Row : " & a & Chr(13) & "Column : " & b
End Sub

HTH

DominicB

[balamus]

Many thanks Mr dominic
It works

[dominicb]

Hi Bala

Certainly does. Appreciate the feedback.

DominicB