Sub Insert_PBreak()
Dim OldVal As String
Dim rng As Range
OldVal = Range("A1")
For Each rng In Range("A1:A300") '<< change range
If rng.text < OldVal Then
rng.PageBreak = xlPageBreakManual
OldVal = rng.text
End If
Next rng
End Sub
Gord Dibben MS Excel MVP
On 23 Jul 2008 14:31:08 -0400,
(Al Dykes) wrote:
If I sort spreedshet on Column A, I want to print a paper report that
starts a new page whenever the contents of col. A changes.
How?
TIA.