Dim LastRow as long
with activesheet
lastRow = .cells(.rows.count,"A").end(xlup).row
.range("a1:a" & lastrow).select
'or
.range("a1",.cells(.rows.count,"A").end(xlup)).select
end with
Sometimes using a variable makes it easier if you have to use it later on.
> Last occupied cell in the column
>
[quoted text clipped - 20 lines]
> >>
> >> Paul Martin

Signature
Dave Peterson