Application.Screenupdating = False
For i = 100 to 1 Step -1
cells(i,"A").entirerow.insert
Next i
Application.Screenupdating = True
--

HTH

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


"Arun" wrote in message
...
a workshhet with 30 column 100 rows with data. I would like to insert a
blank row after each row automatically. please help