hello
I was given the following macro for inserting page break. Somehow, I keep
getting the error: Can't execute code in break mode

What does the error mean and how can I fix it?
Thank you very much

Sub insert_Pbreak()
Dim oldval As String
Dim rng As Range
oldval = Range("a1")
For Each rng In Range("A1:a6000")
If rng.Text < oldval Then
rng.PageBreak = xlPageBreakManual
oldval = rng.txt
End If
Next rng
End Sub