Use this macro:
Sub Macro1()
For i = 2 To 10 Step 2
Range("A" & i).Select
Selection.EntireRow.Insert
Next
End Sub
--
raypayette
------------------------------------------------------------------------
raypayette's Profile:
http://www.excelforum.com/member.php...o&userid=29569
View this thread:
http://www.excelforum.com/showthread...hreadid=563791