Automatically insert page break every 6 rows in excel doc

I have a very large excel document and I need to insert a page break, say
after a fixed number of rows eg 6 rows. To insert page break manually it will
take hours. Can anybody help ?

Try this:

Sub insert_page_breaks()
For r = 7 To 100 Step 6
Worksheets("Sheet1").Rows(r).PageBreak = xlPageBreakManual
Next
End Sub

--
Ian
--
"Icetea" <[email protected]> wrote in message
news:[email protected]...
>I have a very large excel document and I need to insert a page break, say
> after a fixed number of rows eg 6 rows. To insert page break manually it
> will
> take hours. Can anybody help ?