Code to insert a Page Break

[Moore]

I would like to know if it is possible to write a VB code
to insert page breaks into a spreadsheet when a value is
encountered in a column. I am using Excel 2002

 

[Dave Peterson]

I'd modify JE's code slightly to avoid A1 and maybe remove all the existing page
breaks.

Option Explicit
Sub test()

Const MYVAL As Double = 1
Dim cell As Range

ActiveSheet.ResetAllPageBreaks

For Each cell In Range("A2:A" & _
Range("A" & Rows.Count).End(xlUp).Row)
If cell.Value = MYVAL Then _
ActiveSheet.HPageBreaks.Add Before:=cell
Next cell

End Sub

 

[E Moore]

Thanks for the info, the code worked beautifully.


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!