When writing a program to Reset the UsedRange, I have tried everything known
to man under the sun. From lots of testing, I have found that using "Find"
as others have mentioned is the fastest way to do it.
Keep in mind that a Cell Note may contain useful information that is
"Outside" this "last cell" if using this to deleting anything.

--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"Bob Phillips" wrote in message
...
"FxM" wrote in message
...

I use these to find out :

Lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row


Apart from the nasty [A1], which can be circumvented by Range("A1"), I
like
that. It doesn't however improve IMO upon

Cells(Rows.Count,"A").End(xlUp).Row