Faraz

Thanks for your comments.. The below code extends the selection upwards .
Since you have already selected the entire column it does not make any
difference..To understand this better; try the below test

1
2
3
4

With the above data in cells A5:A9 . (All other cells are blank in column
A). Select cell A9 and run the below code...

Range(Selection, Selection.End(xlUp)).Select

Then select A15 and run the code again and see the difference...


If this post helps click Yes
---------------
Jacob Skaria


"Faraz A. Qureshi" wrote:

Wow!
Jacob! U R simply the best. By the way what was the reason of failure of the
former code which I had extracted via a recorded macro?
--
Best Regards,

Faraz


"Jacob Skaria" wrote:

Hi again...

Sub Macro7()
Sheets(1).Select
Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Select
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Faraz A. Qureshi" wrote:

What might be wrong with the following code?

Sub Macro7()
Sheets(1).Columns("A:A").Select
Range("A1").Activate
Range(Selection, Selection.End(xlUp)).Select
End Sub

The code remains to be with complete column A:A selected instead of
selecting only the filled up cells.

All your help shall be appreciated.

--
Best Regards,

Faraz