Find Last Cell in Column, Select all cells above it

Hi,

Can someone please provide me with code that will allow me to find the last cell in a column and then select all cells above it. Or just select cells in a column from the 1st cell to the last cell that has information in it. ( I don't want to highlight everything to cell 65536).

THANKS

Hello MayDay,

Here is a macro that does what you want.
_________________________________________________________________

Public Sub SelectColumn(Cell_Address As Range)

Dim MyRange As Range
Dim Col As Integer
Dim Row As Long
Dim LastRow As Long
Dim WksName As String

Set MyRange = Cell_Address
Col = MyRange.Column
Row = MyRange.Row

'Find the Last Non Blank Row in the Column
LastRow = MyRange.Cells(Rows.Count, Col).End(xlUp).Row

'Select All Cells in the Column from the First to the Last
WksName = MyRange.Parent.Name
With Worksheets(WksName)
.Select
.Range(Cells(Row, Col).Address & ":" & Cells(LastRow, Col).Address).Select
End With

'Release the Object from Memory
Set MyRange = Nothing

End Sub
_________________________________________________________________

Using the Macro:
For this example the column is "A" and the rows used are 1 to 25. The cells in the range are non blank. The active worksheet is "Sheet1".

SelectColumn Cell_Address:=Range("A1")
SelectColumn Cell_Address:=Range("A1:A10")
SelectColumn Cell_Address:=Range("A4:C16")
SelectColumn Cell_Address:=Range("A100")

All of the above statements will select the Range A1 to A25. The macro automatically finds the first and last cells of the first column in the Range.

Hope you find this useful,
Leith Ross