Sub Test()
Dim sh As Worksheet
Dim PBs As HPageBreaks
Dim pb As HPageBreak
Dim counter As Long
Set sh = ActiveSheet
sh.ResetAllPageBreaks
Set PBs = sh.HPageBreaks
counter = PBs.Count
counter = 0
For Each pb In PBs
counter = counter + 1
Next
End Sub
Вываливается на цикле с ошибкой "Subscript out of range (Error 9)" . Причем если создать новый файл, написать там новый макрос, то он может работать. Так что кого заинтересует попробуйте мой файл. Если смотреть в отладчике, то PBs.Count = 5. Т.е. коллекция не пустая.