Hi

Sorry i must not have read your post correctly the first time through.

rather than selecting the rows you can set a range which is pretty
much the same similar to what you already have.

if there are blanks in your column you will have to find the .end ref
from the bottom up i.e. i=[N65536].end (xlup).row

if not though this code will work for you.

Dim i As Integer
i = [N1].End(xlDown).Row

with activesheet
.Range("N2", "N" & i).Select
end with


S