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]