Finding last active cell in a row

[Sailorman Mark]

Using this phrase
FinalCell=Range("D65536").End(x1up).Address
I get the result $D$46, how can I get the result D46? Is it possible using the Range
Function.

 

[Mudface]

Try: -

finalcell = Range("D65536").End(xlUp).Address(False, False)
MsgBox finalcell

Also take a look at the address property in VBA help, it takes other parameters which may be useful to you.

 

[Sailorman Mark]

Thanks for the reply, that answered all of my
questions.