I'd like to. What does the command stand for? I don't
understand it properly. I've never heard
of "Usedrange" ... Maybe you could explain it whenever you
find some time.
Thanks a lot,

Maria


-----Original Message-----
Maria,

You could also try

With Activesheet
iLastRow =
..Cells(.Rows.Count,.Usedrange.Cells(1,1).Column) .End
(xlUp).Row
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)