how do I insert multiple rows in excel after every row of data

[grantm5]

I need to insert 23 rows after every row that is currently in my spreadsheet

 

[Bob Phillips]

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)

I need to insert 23 rows after every row that is currently in my

spreadsheet