Page break macro

[Pete]

Hi

How would i tidy-up the following macro to insert page breaks

[VBA]Sub InsertPageBreaks()

SelectTaskField Row:=1, Column:="Text12"
PageBreakSet
SelectTaskField Row:=2, Column:="Text12"
PageBreakSet
SelectTaskField Row:=3, Column:="Text12"
PageBreakSet
SelectTaskField Row:=4, Column:="Text12"
PageBreakSet
SelectTaskField Row:=5, Column:="Text12"
PageBreakSet

End Sub[/VBA]

[KeithRoberts]

If I understand what you are looking for, try this code:

 
Sub InsertPageBreaks()
 
    Dim lCntr As Long
 
    For lCntr = 1 to 5
        SelectTaskField Row:=lCntr, Column:="Text12"
        PageBreakSet
    Next lCntr
 
End Sub