something like this.

for i=cells(rows.count,"a").end(xlup).row to 7 step -7
cells(i,"a").entirerow.delete
next i

--
Don Guillett
SalesAid Software

"Caroline" wrote in message
...
I have a big spreadsheet, and need a quick macro or formula to
automatically
delete every seventh row.