Page Break Macro

[csshot2]

Not very good at VBA and have found this board useful in the past…any help would be greatly appreciated.

I need a macro that will review the cells in column A and every time it finds 81??? it will insert a page break. For example (see below), it will stop at 81016 and insert a page break, then it will proceed down to 81020 and insert another page break, and so on.

Column A
81016
USDA CSREES
AG-Fed Smith Lev
2358236000
81020
USDA CSREES
AG-Fed Smith Lev
2350206000
81030
USDA CSREES
AG-Fed Smith Lev
2350016000

 

[QuietRiot]

Sub Macro1()
   
   Last = Range("A65536").End(xlUp).Row

    For x = 1 To Last
    If Left(Cells(x, 1).Value, 2) = "81" Then
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(x + 1, 1)
    End If
    Next
    
End Sub

 

[QuietRiot]

oh i wasn't clear on wheter you wanted it before or after the 81#

right now its after if you want it before just change: Before:= Cells(x,1) instead of x+1