How can I do this the other way round?

Sub Get_Cell_Number()
MsgBox Cells(1).Address
End Sub

e.g. Cells(1,1)
'result = 1