excel vba getting the row,cell value from selection.address

Question

For i = 1 To 20

  \'\' select the cell in question
  Cells.Find(...).Select

  \'\' get the cell address

  CellAddr = Selection.Address(False, False, xlR1C1) 



Next
         


        

Answer 1

Is this what you are looking for ?

Sub getRowCol()

    Range("A1").Select ' example

    Dim col, row
    col = Split(Selection.Address, "$")(1)
    row = Split(Selection.Address, "$")(2)

    MsgBox "Column is : " & col
    MsgBox "Row is : " & row

End Sub