You can use Range.address
Sub Test()

Dim Xl as Excel.Application
Dim WB as Excel.workbook
Dim Wk as Excel.worksheet
Dim Rng as Excel.Range

Set Xl = New Excel.Application
Set Wb = xl.workbooks.open ("Workbook path")
Set Wk = Wb.activesheet
Set Rng = Wb.Range("If you have named range, you can
provide...")

Msgbox
Replace(Rng.address(Xlrowabsolute:=False),"$","")
Msgbox
Replace(Rng.address(Xlcolumnabsolute:=False),"$","")

end Sub

Not sure about the Xlrowabsolute,Xlcolumnabsolute
parameter, will let you know soon.