Office: Seitenumbrüche entfernen

Wie kann ich per VBA alle Seitenumbrüche eines Blattes möglichst schnell entfernen?

Mein derzeitiger Ansatz:
Code:

 

Probier mal
Code:

 

Vielen Dank für den Tipp mit "ResetAllPageBreaks"! Das funktioniert schon mal deutlich schneller als meine FOR-Schleife.

Nichtsdestotrotz bewirkt das Entfernen bzw. Zurücksetzen aller Seitenumbrüche eine spürbare Verlangsamung. In meiner Arbeitsmappe benötigt die Routine mit ResetAllPageBreaks etwas über eine Minute; dabei ist es egal, ob zuvor kein Blatt, ein Blatt oder alle Blätter auf Ansicht "Seitenumbruchvorschau" eingestellt war(en). Ohne ResetAllPageBreaks läuft die Routine 3 Sekunden (kein Blatt in "Seitenumbruchvorschau") bzw. 7 Sekunden (ein Blatt in "Seitenumbruchvorschau") bzw. etwas über eine Minute (alle Blätter in "Seitenumbruchvorschau"). Kurz: Sobald ein Blatt auf "Seitenumbruchvorschau" eingestellt war, verlangsamt sich der Ablauf, wobei die Verlangsamung zunimmt, je mehr Blätter auf "Seitenumbruchvorschau" eingestellt waren - dummerweise bringt das Entfernen der Seitenumbrüche offenbar nichts.

Gibt es eventuell noch einen anderen Ansatz, die Seitenumbruchvorschau quasi ungeschehen zu machen?