excel vba convert for each cell into range code example

Example: excel vba convert cells address

' 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