Вываливается на цикле с ошибкой. Причем если создать новый файл, написать там новый макрос, то он может работать. Так что кого заинтересует попробуйте мой файл. Если смотреть в отладчике, то PBs.Count = 5. Т.е. коллекция не пустая.

Все темы я читал перед своим постом. Не работает это.
Пробовал и
Application.ScreenUpdating = True
и
ActiveWindow.View = xlNormalView
все фигня, начинает глючить, если последняя печатаемая ячейка находится в конце последней страницы.

решилось просто:

Sub Test()
Dim sh As Worksheet
Dim PBs As HPageBreaks
Dim pb As HPageBreak
Dim counter As Long

ActiveWindow.View = xlNormalView
Set sh = ActiveSheet
ActiveSheet.PageSetup.PrintArea = sh.UsedRange.Address
sh.ResetAllPageBreaks
ActiveWindow.View = xlPageBreakPreview
Set PBs = sh.HPageBreaks
counter = PBs.Count
counter = 0
For Each pb In PBs
counter = counter + 1
Next
ActiveWindow.View = xlNormalView
End Sub

вроде бы пока не глючит.

P.S. Проверяйте хоть код, перед тем как написать.