Insert Page Break

Is it possible to insert a page break automatically when specific text is
encountered in row A. This report is hundreds of pages long and I need an
automatic page insert macro. Can someone give me the syntax of a macro if
the specific text is "Break"? Thanks for any help.

--
Don Rountree

Hi Don
Try
Sub Macropagebreak()
For Each CELL In Range("A:A")
If CELL = "BREAK" Then
CELL.Rows.Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Else
End If
Next
End Sub

"Don" wrote:

> Is it possible to insert a page break automatically when specific text is
> encountered in row A. This report is hundreds of pages long and I need an
> automatic page insert macro. Can someone give me the syntax of a macro if
> the specific text is "Break"? Thanks for any help.
>
> --
> Don Rountree

Thank you for your help. I entered this macro and when I ran it I got the
error message that said - Complie error, variable not defined. The first
instance of the word CELL was highlighted. Please tell me how to define this
variable.
--
Don Rountree


"tina" wrote:

> Hi Don
> Try
> Sub Macropagebreak()
> For Each CELL In Range("A:A")
> If CELL = "BREAK" Then
> CELL.Rows.Select
> ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
> Else
> End If
> Next
> End Sub
>
> "Don" wrote:
>
> > Is it possible to insert a page break automatically when specific text is
> > encountered in row A. This report is hundreds of pages long and I need an
> > automatic page insert macro. Can someone give me the syntax of a macro if
> > the specific text is "Break"? Thanks for any help.
> >
> > --
> > Don Rountree

Sub MacroPageBreak()
Dim Cell as Range '<-- add this line
'''rest of code here

Don wrote:
>
> Thank you for your help. I entered this macro and when I ran it I got the
> error message that said - Complie error, variable not defined. The first
> instance of the word CELL was highlighted. Please tell me how to define this
> variable.
> --
> Don Rountree
>
> "tina" wrote:
>
> > Hi Don
> > Try
> > Sub Macropagebreak()
> > For Each CELL In Range("A:A")
> > If CELL = "BREAK" Then
> > CELL.Rows.Select
> > ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
> > Else
> > End If
> > Next
> > End Sub
> >
> > "Don" wrote:
> >
> > > Is it possible to insert a page break automatically when specific text is
> > > encountered in row A. This report is hundreds of pages long and I need an
> > > automatic page insert macro. Can someone give me the syntax of a macro if
> > > the specific text is "Break"? Thanks for any help.
> > >
> > > --
> > > Don Rountree

--

Dave Peterson