Rob, try this

Sub InsertBreaks()
Set rng = Range(Cells(2, 1), _
Cells(Rows.Count, 1).End(xlUp))
For Each cell In rng
If Trim(cell.Value) <> _
Trim(cell.Offset(-1, 0).Value) Then
ActiveSheet.HPageBreaks.Add cell
End If
Next
End Sub

Rob

Sub Insert_Pbreak()
Dim OldVal As String
Dim Rng As Range
With Application
       .Calculation = xlManual
       .ScreenUpdating = False
   End With
   OldVal = Range("A1")
   StartTime = Timer
   For Each Rng In Range("A1:A300")        '<< change range
   
       If Rng.text <> OldVal Then
           Rng.PageBreak = xlPageBreakManual
           OldVal = Rng.text
       End If
   Next Rng
   MsgBox Timer - StartTime
With Application
       .Calculation = xlAutomatic
       .ScreenUpdating = True
   End With
   

Note: setting pagebreaks for a great whack of clients will take a while.

200 clients took 65 seconds on my 2.6Ghz Pentium 4

Gord Dibben Excel MVP