Page Break
It gives me a debug error :If Selection(i).Row = 1 Then Exit Sub
"Gord Dibben" wrote:
Sub InsertBreak_At_Change()
Dim i As Long
For i = Columns(1).Rows.Count To 1 Step -1
If Selection(i).Row = 1 Then Exit Sub
If Selection(i) < Selection(i - 1) And IsEmpty _
(Selection(i - 1)) Then
With Selection(i)
.PageBreak = xlPageBreakManual
End With
End If
Next
End Sub
Gord Dibben MS Excel MVP
On Thu, 13 Dec 2007 12:32:00 -0800, Max wrote:
I have an excel spreadsheet, that I need the page to break when Column A is
not null, after considering the repeated row in the top.
Header1 Header2 Header3
1233454 AAAA $5000
CCCC
______________________
548789 DDDD $1000
KKKK
I want the page to break at the line above. We cant use the pivot table as
its only pulling top raw.
|