Sub selecthalfcolumn()'ignores blanks
lr = Cells(Rows.Count, "a").End(xlUp).Row / 2
Range(Cells(1, 1), Cells(lr, 1)).Select
End Sub

--
Don Guillett
SalesAid Software

"Rokuro kubi" wrote in message
ups.com...
How do I select the bottom half of a column's cells in a macro?