Get address of Cell
 

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

Get address of Cell
 

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

Get address of Cell
 

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.

--
Regards,
Tom Ogilvy

"Norman Jones" wrote in message
...
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