For i = Cells(Rows.Count,"A").End(xlUp).Row To 1 Step -1
Cells(i+1,"A").Resize(23,1).Entirerow.Insert
Next

--

HTH

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


"grantm5" wrote in message
...
I need to insert 23 rows after every row that is currently in my
spreadsheet