Try this John

Sub test()
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Range("F9:F" & lr).Select
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"John" wrote in message ...
Is it possible to find the bottom of a sheet, say there are 1500 entries in
column A... and then select F9:F1500 if column F doesn't have values in every
row?

For example, the next time the macro is run thier maybe 1505 rows in the
sheet...

here is a test code that doesn't work for me... but may help convey my idea.

Dim c As Variant

Range("A9").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 5).Select
Set c = ActiveCell
Range("f9").Select
Range(Selection, Selection.c(xlDown)).Select