Архив форумов ЦИТФорума

[Илья]

Буквально пишу следующее:
Dim CurrentHeaders as New Collection 'глобальная коллекция

Sub InitCurrentHeaders()
Set CurrentHeaders = New Collection
for i = 1 to 3
CurrentHeaders.Add 0
Next i
End Sub

В том месте где мне эта колекция нужна, после вызова процедуры InitCurrentHeaders пытаюсь своим творением воспользоваться:
CurrentHeaders(1) = i
(то же самое для CurrentHeaders.Item(1) = i)

Результат: Object Requiered
Всё действие происходит внутри одного модуля

Самое забавное, что в Watch'е CurrentHeaders виден и все элемнты коллекции имеют значение ноль, как и должно быть

Что делать?
Уже руки трясуться!