macros help please

[Izhar]

hi,

i have a file that needs to have a page break after the words "
Carried to Collection"

i am having troble with the macro i record to move down and do the page break for every "
Carried to Collection
" cell in the work sheet how do programme the marco to look downwards

please find attached the file with the macro

 

[Deepak]

Check this.

Sub PageB()
Dim Rng As Range, cell As Range
Set Rng = Range(Cells(1, 3), Cells(Rows.Count, 3).End(xlUp))
For Each cell In Rng
    If cell.Value = "Carried to Collection" Then _
        ActiveSheet.HPageBreaks.Add Before:=cell.Offset(1, 0)
Next
End Sub

 

[Izhar]

thank you so much you made my day

now trying to figure out what this is all about.