Many Thanks
Have a great 2004
<Gord Dibben wrote in message
...
PCOR

Sub selectrange2()
''from top of column A to bottom of used range in column A including
blanks
Range("A1", Cells(Rows.Count, 1).End(xlUp)).Select
End Sub

Sub selectrange1()
''from activecell in any column to bottom of used range in column
including
''blanks
Range(ActiveCell, Cells(Rows.Count,
ActiveCell.Column).End(xlUp)).Select
End Sub

Sub SelectDown()
''to first blank row in active column
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

Gord Dibben Excel MVP

On Sat, 27 Dec 2003 18:57:30 GMT, "PCOR" wrote:

The code
Range("A2:A34").Select
will select A2 to a34
What code is required to select A1 to the last entry in Col A
Thanks