vba to insert a page break at every occurence of the word "New Record" in column 1

[tfxobrien]

I need to loop through column one and insert a page break before every occurrence of the string "New Record" as the cell.value.

 

[igold]

Hi,

See if this does what you want. I used Column A as the column which contains "New Record", and assumed that Row 1 was a Header Row.

Sub InsertBreak()


    Dim lRow As Long, i As Long
    lRow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To lRow
        If Cells(i, 1).Value = "New Record" Then ActiveSheet.HPageBreaks.Add before:=Range("A" & i)
    Next
    
End Sub

HTH

igold

 

[tfxobrien]

Thanks

 

[igold]

Glad to help.