you can try this

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


--


Gary


"Alfred" wrote in message
...
Hi
I used the following code in a macro
Range(Selection, Selection.End(xlDown)).Select 'the same as
CTRL-SHIFT-DownArrow

This does not work if there is emty rows (only selects till it finds the first
emty row)

Is there another function to select till the last row that is populated ?

Thanks a lot
Alfred