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

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

On Tue, 9 May 2006 12:57:40 -0600, "Dan B" wrote:

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

Thank You!!!!


"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
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

On Tue, 9 May 2006 12:57:40 -0600, "Dan B" wrote:

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