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