This may not be the best method, but it will work. In this code, it will
only repeat 10 times. If you know how many "7th" rows will need to be
deleted, then you can adjust the "1 To 10" section. Keep in mind that this
code also assumes that the first row to be deleted, will be row 7. Back up
your work before using this. HTH, Paul

Sub Delete7thRow()
r = 7

For i = 1 To 10
Rows(r).Delete
r = r + 6
Next i

End Sub



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