VBA: Not a collection object

[Polundra_Pi]

Как говорят: не прошло и пол-года, а я снова решил побеспокоить Вас очередным вопросом.
Срашивал в Лотусном форуме, но сказали, что лучше связатся  с Вами, ведь хоть тема и связана с Лотусом,
но ответ должет лежать только в форумах ВБА.
Возникает вот такая ошибка, ничего бы удивидельного не было бы, если б коллекция объектою пуста, но в ней точно есть собственные екземпляры, но
тогда неясна природа(причина) еррора.
Можете, если кто сталкивался с подобным, или если кто в "курсе дела",
пояснить, пожлуйста, в чём суть ошибки, вознимкающей иногда на строке
Forall pb In wb.Worksheets(i).HPageBreaks,
wb- Excel-книга, pb- экземплярм класса разрывов Листа.
Вот код, когда-то работал, а счас через раз:
          For i=1 To Klist
               wb.Worksheets(i).PageSetup.FirstPageNumber = page
               Kolpb=wb.Worksheets(i).HPageBreaks.Count
               If( wb.Worksheets(i).HPageBreaks.Count>0 ) Then
                    Forall pb In wb.Worksheets(i).HPageBreaks
                         If  (pb.Extent = 1)  Then page=page+1 
                    End Forall
               End If
          Next i   

[HandKot]

а как у вас объявлена переменная <b>pb</b>?

[Polundra_Pi]

а как у вас объявлена переменная <b>pb</b>?

Здравствуйте!.
pb - горизонтальный пейдж-брик, да по сути я переменную никак не объявлял, Лотус автоматически считает необъявлённые данные как Вариант-тип (общий тип, Dim pb As Variant), в который входят и объекты  OLE-приложения, в даном случае Экселя. Еррор если возникает, то сразу на первом Листе, тоесть при i=1.
Конечно можно тупо  ON ERROR RESUME NEXT и чхать на еррори странные, но всё-таки хотелось бы понять причину возникшей на ровном месте ошибки.

[HandKot]

если есть возможность поставить "брекпоинт", то поставить его на этой строке и посмотреть что это за объект wb.Worksheets(i).HPageBreaks, может его кто-то случайно переписывает?