Range(cellAdr).Select
cellAdr = Cells(3,4).value cellAdr = cells(3,4).text
MsgBox ActiveCell.Address(ReferenceStyle:=xlR1C1)