Seitenumbrüche ermitteln

ich verwende folgenden Codeteil, um den unteren Zeilenumbruch eines Bereichs zu ermitteln. Das dauert aber ziemlich lange.

Kennt jemand eine Syntax, mit der diese Funktion schneller geht?

      'Unteren Seitenumbruch herausfinden
      Do While ActiveWorkbook.ActiveSheet.Rows(i).PageBreak <> xlPageBreakAutomatic And _
            ActiveWorkbook.ActiveSheet.Rows(i).PageBreak <> xlPageBreakManual And i < 60000
         i = i + 1
      Loop
      unterez = i - 1