How do I insert a page break every 5th row? marco?

Question

I have a 698 line Excel file that I need separated at every 5th line.&nbsp; How do I create a marco to accomplish this or is there a way to do this by using the insert page break option?&nbsp; I'm using Excel for Office 365

hansvogelaar · Answer

MLAcapgroupcom&nbsp;
Here is a macro:
Sub InsertPageBreaks()
    Dim r As Long
    Dim m As Long
    ActiveSheet.ResetAllPageBreaks
    m = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("A" &amp; m).Select
    For r = 6 To m Step 5
        ActiveSheet.HPageBreaks.Add Before:=Range("A" &amp; r)
    Next r
End Sub

Forum Discussion

How do I insert a page break every 5th row? marco?

1 Reply

Resources