Automatically insert page break every 6 rows in excel doc

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
Back
Top