Get address of Cell

[Terry V]

Hello
I am using:
Dim x as Range
Range("B65536").End(xlUp) to find the last used cell.
Ive tried assigning a variable to this and it returns the value of the cell

x = Range("B65536").End(xlUp) ' returns cell value
I need x to return the cell address without activating the cell.

x = Range("B65536").End(xlUp).Address ' does not work

Any suggestions?
Thank you
Terry

 

[Norman Jones]

Hi Terry,

Sub Tester02()
Dim x As Range
Set x = Range("B65536").End(xlUp)
MsgBox x.Address
End Sub

 

[Tom Ogilvy]

but

Sub Tester03()
Dim x as String
x = Range("B65536").End(xlUp).Address ' does work
msgbox x
End sub

would work as well. Just for the OP's benefit.