Automatically enter page breaks?

[Dan B]

Hi All,

I have a report that has a few rows of data under each customer in column A.
I want each customers data to be on a separate page. Is there a way to
automatically insert a page break at each customer name in columns A?

Thanks,

Dan

 

[Gord Dibben]

Dan

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

 

[Dan B]

Thank You!!!!

Dan

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