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 Befo=cell
Next cell

End Sub

Moore wrote:

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