Horizontal page breaks

[sonic]

Is there a way of inserting a Horizontal page break before (one row before) a certain Piece of known text in a cell? Can a macro be done for this task?

[BrianB]

Something like this :-

'==================================================
'- FIND & INSERT A PAGEBREAK DEPENDING ON CONTENT
'- Brian Baulsom January 2005
'--------------------------------------------------
Sub Do_PageBreak()
    Dim MyFind As Variant
    Dim FoundCell As Object
    Dim FoundRow As Long
    '----------------------------------------------------------
    MyFind = _
        InputBox("Please insert value to find.", " FIND")
    If MyFind = "" Then End
    '-----------------------------------------------------------
    Set ws = ActiveSheet
    Set FoundCell = ws.Cells.Find(what:=MyFind, MatchCase:=False)
    If FoundCell Is Nothing Then
        MsgBox (MyFind & " NOT FOUND.")
    Else
        FoundRow = FoundCell.Row
        ws.HPageBreaks.Add Before:=ws.Range("A" & FoundRow)
        MsgBox ("Done")
    End If
End Sub

[sonic]

BrianB,

thanks very much for your help!
That's excellent and does the trick