lr = Cells.Find("*", Cells(Rows.Count, Columns.Count) _
, , , xlByRows, xlPrevious).Row


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Elton Law" wrote in message
...
Hi Expert,
My excel spreadsheet is different days by days.
Sometimes, it has 6552 rows. Sometime, it has 7744 rows .... etc ... etc
....
Except Control + End + Down .... (VB does not help sometimes, that depend
on
whether each row is continuous without a break), what is the script in VB
that can help me going to last row of the spreadsheet please ?
Thanks in advance...