code to select a column down to last poplulated row

T

Tom Ogilvy

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

Bob Phillips

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


--

HTH

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