For i = 400 to step -40
Cells(i,"A").Resize(5,1).entirerow.insert
Next i

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Olzki" wrote in message
...
Hi,

I'm uppdating a huge spreadsheet and are in seroius need to figure out how
to add five new rows every fourtieth row. Advise anyone? Need to do this
400
times manually otherwise...