How to obtain the number of Column and Row from selected (active)cell?

[And1]

Maybe this stupid, but it will add me in sure project.

For example, select mouse any cell, and
I want, to :

Cells("A1").Value = Row
Cells("A2").Value = Col
' dim Row, Col as Integer
but,
Row = ???? (I don't know)
Col = ???? (I don't know)

Regards,
Andrzej

 

[Brian]

Try

rowId = Range(ActiveCell.Address).Row
colId = Range(ActiveCell.Address).Column

 

[Guest]

Sub y()
Range("A1") = Selection.Row
Range("A2") = Selection.Column
End Sub

 

[And1]

Tx

Regards,
Andrzej