lastcell=cells(rows.count,1).end(xlup).row

--
Don Guillett
SalesAid Software

"fullers" wrote in message
...
I am trying to improve my macro.

At the moment I have data in column A. It always starts in cell A1 and I
need to find the last row with data. At the moment I have the following
code:

Cells(1, 1).Select
Selection.End(xlDown).Select
EndCell = ActiveCell.Row

I am trying to get away from actually selecting cells in a sheet if I can.
Is there some code that will find the last row for me?

Thanks in advance.