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.