Dim iLastRow As Long
Dim i As Long
Const nRows As Long = 5
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = (iLastRow \ nRows) * nRows + 1 To 1 Step -nRows
Rows(i).Insert
Next i
--
HTH
RP
(remove nothere from the email address if mailing direct)
"MartyCole" wrote in message
...
I'm sure this has been asked in the past but I couldn't find it in the
list of replies.
I need a macro to skip down a number (usually 5. sometimes 3 in
different spreadsheets) then insert a blank row. it needs to continue
until it reaches the end of the list (anywhere from 100 to 3000
lines).
I could do this in Lotus years ago but I'm lost in Excel...
Thanks for any help you can provide
--
MartyCole
------------------------------------------------------------------------
MartyCole's Profile: http://www.msusenet.com/member.php?userid=1217
View this thread: http://www.msusenet.com/t-1870429758