how about

LR = Cells(rows.count,"a").end(xlup).row

--
Don Guillett
SalesAid Software

"clara" wrote in message
...
Hi all,

this code is from Stephen Bullen's book,

Range("A1").Select
lRealLastRow = Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, _
xlPrevious).row
I'd like to know can we use other statement instead of range("A1").Select

Clara
--
thank you so much for your help