Page Break when a column changes
Hi again,
Am Mon, 18 Nov 2013 21:55:42 +0100 schrieb Claus Busch:
Sub PageBreak()
Dim LRow As Long
Dim rngC As Range
With ActiveSheet
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
.ResetAllPageBreaks
For Each rngC In Range("A6:A" & LRow + 1)
If Left(rngC, 1) < "T" Then
.HPageBreaks.Add rngC
End If
Next
End With
End Sub
better try:
Sub PageBreak()
Dim LRow As Long
Dim rngC As Range
With ActiveSheet
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
.ResetAllPageBreaks
For Each rngC In Range("A6:A" & LRow + 1)
If Left(rngC, 5) < "Total" Then
.HPageBreaks.Add rngC
End If
Next
End With
End Sub
Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2
|