Range Selection Not Working

[timbo1957]

Hi,

I am using this in a small macro -

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

The trouble is it isn't selecting all of the column because there are some blank cells with in it. Is there a way around this?

Regards

Tim.

[mojo249]

You could try offsetting and End(xlUp) instead:

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

Note that it will produce an error if the offset takes it beyond the 65536 row limit.

[foxguy]

Range(Selection,Cells(Rows.Count,Selection.Column).End(xlUp))

[timbo1957]

Thanks guys a great help.