Sub TogglePageBreaks() On Error Resume Next ActiveSheet.DisplayPageBreaks = Not ActiveSheet.DisplayPageBreaks End Sub