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