Dynamic Page Breaks

[1968rm]

Hi,

I would like to set horizontal page breaks in vba.
For each cell in range (A7 through A286, where 286 is the value in cell B6), if the cell value is "PB", I need a page break above that cell.
I've tried numerous codes I found, but nothing worked for me.
Any help would be greatly appreciated.

 

[1968rm]

Got one part of it!

Sub PB()
Dim PBRange As Range, PB As Range
    With ActiveSheet
        Set PBRange = .Range("A7:A1000")
        For Each PB In PBRange
            If PB.Value = "PB" Then
                .HPageBreaks.Add before:=PB
            End If
        Next
    End With
End Sub

I would like to set PBRange to be A7:A286 where 286 is the value in cell B6

I'm sure there's a way, just need to figure out how...

 

[1968rm]

Got no help, had to figure it out myself...

Dim LastRow As Long
LastRow = Range("B6").Value
Set PBRange = .Range("A7:A" & LastRow)