Removing page break display on all worksheets

[Yamezz]

For some dumb reason, Excel adds dashed page breaks to all the worksheets in my document when I have two monitors in use. I wrote some code to remove these but my code only operates on the active worksheet. How can I get it to remove the page breaks on all of the worksheets?

Sub RemovePageBreaks()

' Keyboard Shortcut: Ctrl+Shift+P

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    ActiveSheet.DisplayPageBreaks = False
Next ws

End Sub

 

[Fluff]

You need to use

ws.DisplayPageBreaks = False

 

[Yamezz]

ws.DisplayPageBreaks = False

Fluff, unfortunately that line neither operates on all worksheets in the document, nor does it remove the page break preview on the current worksheet.

 

[Fluff]

Is the code in the same workbook as the sheets you are trying to work on?

 

[Yamezz]

Thanks Fluff. A lightbulb just went off... The code is in the Personal workbook, so of course ThisWorkbook doesn't refer to the ActiveWorkbook.

 

[Fluff]

Glad it's sorted & thanks for the feedback.