Remove PageBreaks in multiple Excel files

lumiere

New Member
Joined
Jan 13, 2021
Messages
4
Office Version
  1. 365
Platform
  1. Windows
I have about a hundred Excel files and I need to remove PageBreaks in all of them.
I found a few VBA suggestions and my current setup is this:

- Page_Breaks_Remover.xlsm
- Files (folder with Excel files)


In the Page Breaks Remover.xlsm I created a Module and have the following script

VBA Code:
Sub ProcessFiles()
    Dim Filename, Pathname As String
    Dim wb As Workbook

    Pathname = ActiveWorkbook.Path & "\Files\"
    Filename = Dir(Pathname & "*.xls")
    Do While Filename <> ""
        MsgBox (Filename)
        Set wb = Workbooks.Open(Pathname & Filename)
        DoWork wb
        wb.Close SaveChanges:=True
        Filename = Dir()
    Loop
End Sub

Sub DoWork(wb As Workbook)
    With wb
        For Each ws In wb.Worksheets
            ws.Activate
            ActiveWindow.View = xlNormalView
            ws.DisplayPageBreaks = False
        Next ws
    End With
End Sub

This code doesn't work however, although it iterates over files correctly.
The reason I try to switch View to Normal is because when I go and manually try to disable page breaks this option is disabled in the File > Options > Advanced menu in every file until I switch to Normal view.

Any help is appreciated.
 

Some videos you may like

Excel Facts

Whats the difference between CONCAT and CONCATENATE?
The newer CONCAT function can reference a range of cells. =CONCATENATE(A1,A2,A3,A4,A5) becomes =CONCAT(A1:A5)

HaHoBe

Active Member
Joined
Jan 24, 2003
Messages
317
Office Version
  1. 2013
Platform
  1. Windows
Hi lumiere,

please check if the altered codeline does what you want:
VBA Code:
ws.Cells.PageBreak = xlNone
Ciao,
Holger
 
Solution

Watch MrExcel Video

Forum statistics

Threads
1,123,206
Messages
5,600,317
Members
414,376
Latest member
NickYOW

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top