Selecting a range
 

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

--
Norton Professional 2004 says this email is clean...believe it

Selecting a range
 

With Worksheets(1): Range(.Cells(1, 1), .Cells(Rows.Count,
1).End(xlUp)).Select: End With

"PCOR" wrote in message
. cable.rogers.com...
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

--
Norton Professional 2004 says this email is clean...believe it

Selecting a range
 

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

Selecting a range
 

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

Selecting a range
 

Many Thanks
Have a great 2004
"Rob van Gelder" wrote in message
...
With Worksheets(1): Range(.Cells(1, 1), .Cells(Rows.Count,
1).End(xlUp)).Select: End With

"PCOR" wrote in message
. cable.rogers.com...
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

--
Norton Professional 2004 says this email is clean...believe it