Hi Terry,

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

---
Regards,
Norman



"Terry V" wrote in message
...
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