Option Explicit 
 
Sub PageBreaks() 
     
    Dim c               As Range 
    Dim FirstAddress    As String 
    Dim Search          As String 
    Dim Prompt          As String 
    Dim Title           As String 
     
    Prompt = "What do you want to search for?" 
    Title = "Search Term Input" 
    Search = InputBox(Prompt, Title) 
    If Search = "" Then 
        Exit Sub 
    End If 
    With ActiveSheet.UsedRange 
        Set c = .Find(What:=Search, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True) 
        If Not c Is Nothing Then 
            FirstAddress = c.Address 
            Do 
                ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=c 
                Set c = .FindNext(c) 
            Loop While Not c Is Nothing And c.Address <> FirstAddress 
        End If 
    End With 
     
End Sub