What is the code to select a column down to the last
populated field?

P

Dim rng as Range, icol as Long
icol = 8
set rng = Range(Cells(1,icol),Cells(rows.count,icol).End(xlu p))
rng.Select

--
Regards,
Tom Ogilvy


"Paulg" wrote in message
...
What is the code to select a column down to the last
populated field?

P

Range("A1").Resize(Cells(rows.count,"A").End(xlDow n).Row,1).Select


--

HTH

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

"Paulg" wrote in message
...
What is the code to select a column down to the last
populated field?

P