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