Brian
Thanks for your response. The date part was perfect.
However, due to the layout of the range of cells, I can't
sort and put the blanks to the bottom......so the Macro is
the better option.
Ideally the Macro would look in "P1:P60" and if there was
nothing in the cell it would delete the row. Is this
possible with a Macro.
Regards
Michael
-----Original Message-----
<<only allow those lines that are populated to be
archived
The quickest way is to sort the range so the blanks are
put to the
bottom, otherwise you need a macro to delete the empty
rows.

<<add the current date to each row
Worksheets("STROKE").Range("A1:A60").Value = Now


---
Message posted from http://www.ExcelForum.com/

.