VBA to insert page break above specific text

[Hwatsonnn]

Down column B when there is the letter "i", or the letter "g" found I would like a Page Break to be inserted above the cell in which it is found.

Thanks for any suggestions

 

[Yongle]

Try this

Sub InsertPageBreak()
    Dim cel As Range
        With ActiveSheet
            .ResetAllPageBreaks
            For Each cel In .Range("B2", .Range("B" & .Rows.Count).End(xlUp))
                If cel = "i" Or cel = "g" Then .HPageBreaks.Add Before:=.Rows(cel.Row)
            Next cel
        End With
End Sub

 

[Hwatsonnn]

Try this

Sub InsertPageBreak()
    Dim cel As Range
        With ActiveSheet
            .ResetAllPageBreaks
            For Each cel In .Range("B2", .Range("B" & .Rows.Count).End(xlUp))
                If cel = "i" Or cel = "g" Then .HPageBreaks.Add Before:=.Rows(cel.Row)
            Next cel
        End With
End Sub

Sorry for the late response, just tried it and it did not work

 

[Hwatsonnn]

Try this

Sub InsertPageBreak()
    Dim cel As Range
        With ActiveSheet
            .ResetAllPageBreaks
            For Each cel In .Range("B2", .Range("B" & .Rows.Count).End(xlUp))
                If cel = "i" Or cel = "g" Then .HPageBreaks.Add Before:=.Rows(cel.Row)
            Next cel
        End With
End Sub

sorry I forgot to say there isnt just an "i" or a "g", it is one of those letters followed by numbers or sometimes text.
e.g "i10" "g12" "itop". Apologies

 

[Yongle]

Sub InsertPageBreak()
    Dim cel As Range, x As String
        With ActiveSheet
            .ResetAllPageBreaks
            For Each cel In .Range("B2", .Range("B" & .Rows.Count).End(xlUp))
                x = LCase(Left(cel.Value, 1))
                If x = "i" Or x = "g" Then .HPageBreaks.Add Before:=.Rows(cel.Row)
            Next cel
        End With
End Sub

 

[Hwatsonnn]

Sub InsertPageBreak()
    Dim cel As Range, x As String
        With ActiveSheet
            .ResetAllPageBreaks
            For Each cel In .Range("B2", .Range("B" & .Rows.Count).End(xlUp))
                x = LCase(Left(cel.Value, 1))
                If x = "i" Or x = "g" Then .HPageBreaks.Add Before:=.Rows(cel.Row)
            Next cel
        End With
End Sub

Hello just managed to get round to this sorry, the vba highlights ".HPageBreaks.Add Before:=.Rows(cel.Row)" in yellow as an error.

Thanks for your time

 

[Hwatsonnn]

Hello just managed to get round to this sorry, the vba highlights ".HPageBreaks.Add Before:=.Rows(cel.Row)" in yellow as an error.

Thanks for your time

application defined or object defined error