' From Cells(1,1) to "A1" MsgBox Cells(1, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) ' From "A1" to Cells(1,1) MsgBox Range("A1").Row & ", " & Range("A1").Column