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

Dim f as Range

Set f=ActiveSheet.Cells.Find(...)

If Not f Is Nothing then
    msgbox "Row=" & f.Row & vbcrlf & "Column=" & f.Column
Else
    msgbox "value not found!"
End If