Try

Dim RowNdx As Long
For RowNdx = 1 To 200 Step 6
Rows(RowNdx).Insert
Next RowNdx



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"JVR" wrote in message
...
I want to insert rows after every 5 cells in a excel file that
has data of
120 rows. I don't want to start inserting every single time. Is
there a
function to insert a rows in a file at an interval?