Sub addrowevery5()
counter = 6
Do Until Cells(counter, "a") = ""
Rows(counter).Insert
counter = counter + 6
Loop
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"israel" wrote in message
...
Hello,

I have a spreadsheet that has 250 rows, I have to add a blank row after
every fifth row, is there a formula to apply to my spreadsheet. Manually
is
quite a hassle.

Thank you, all
--
smile