Djblois
01-25-2007, 12:44 PM
This is the code I am trying:
For i = finalRow To 2 Step -1
If Cells(i, "A") = Cells(i, "A").Offset(-1, 0) Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, "A")
Else
End If
Next
It isn't giving me an error but it isn't inserting the page break either.
For i = finalRow To 2 Step -1
If Cells(i, "A") = Cells(i, "A").Offset(-1, 0) Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, "A")
Else
End If
Next
It isn't giving me an error but it isn't inserting the page break either.