Hi Rex,

Try

Range("B2:B" & RANGE("B20000").End(xlUp).Row).Select


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Rex Dunlap" wrote in message
...
The following code gets the last data cell in column B:
Range("b20000").End(xlUp).Select

I would now like to select the Range("Activecell:B2"). How
do I do that?

Thank you for your help.