run time error 438 object doesn't support

[KApSuL]

Ребят помогите пож
было всё нормально с файлом, теперь ругается этой ошибкой
код просто на заполнение списков листбокс

Private Sub Workbook_Open()
   Worksheets(13).ListBox1.Clear
   Worksheets(13).ListBox1.AddItem "SUMA AVE MISKI"
   Worksheets(13).ListBox1.AddItem "041210"
   Worksheets(13).ListBox1.AddItem "041220"
   Worksheets(13).ListBox1.AddItem "041230"
   Worksheets(13).ListBox1.AddItem "051210"
   Worksheets(13).ListBox1.AddItem "051230"
   Worksheets(13).ListBox1.AddItem "091310"
   Worksheets(13).ListBox1.AddItem "091210"
   Worksheets(13).ListBox1.AddItem "091220"
   Worksheets(13).ListBox1.AddItem "091230"
   Worksheets(13).ListBox1.AddItem "101210"
   Worksheets(13).ListBox1.AddItem "151210"
   Worksheets(13).ListBox1.AddItem "161210"
   Worksheets(13).ListBox1.AddItem "171210"
   Worksheets(13).ListBox1.AddItem "191210"
   Worksheets(13).ListBox1.AddItem "401210"
   Worksheets(13).ListBox1.AddItem "411210"
   Worksheets(13).ListBox1.AddItem "421210"
   Worksheets(13).ListBox1.AddItem "471210"
   Worksheets(13).ListBox1.AddItem "491210"
   Worksheets(13).ListBox1.AddItem "491230"
   Worksheets(13).ListBox1.AddItem "1E1210"
   Worksheets(13).ListBox1.AddItem " "


End Sub

[kalbasiatka]

Нет листа с таким индексом или нет нужного контрола на листе.

Запись можно сократить

Private Sub Workbook_Open()
    With Worksheets(13).ListBox1
        .Clear
        .List = Array("SUMA AVE MISKI", "041210", "041220", "041230", _
        "051210", "051230", "091310", "091210", "091220", "091230", _
        "101210", "151210", "161210", "171210", "191210", "401210", _
        "411210", "421210", "471210", "491210", "491230", "1E1210")
    End With
End Sub

[KApSuL]

Сообщение от kalbasiatka

Нет листа с таким индексом или нет нужного контрола на листе.

дык до этого было всё хорошо и ни на что не ругалось, а сегодня запустил-ошибка
вычитал что вроде как вообще связано с региональными параметрами...
или может обновление офиса какое-то поставилось?

[kalbasiatka]

Ну файла ни кто не увидел, о чём можно говорить. У меня без ошибки.

[KApSuL]

Сообщение от kalbasiatka

Ну файла ни кто не увидел, о чём можно говорить. У меня без ошибки.

файл не могу прикрепить...больше 500 Кб...

[Hugo121]

Вероятно обновление виновато.
И вероятно литсбокс теперь не 1...
Файл качать не буду - админам не понравится...

[KApSuL]

Сообщение от Hugo121

Вероятно обновление виновато.
И вероятно литсбокс теперь не 1...
Файл качать не буду - админам не понравится...

а куда можно прикрепить файл легально?

[kalbasiatka]

Ну я нихт знать, на 2013 без проблем. Обновления, правда, у меня отключены )

[Hugo121]

Сообщение от KApSuL

а куда можно прикрепить файл легально?

Да он может и там лежать - просто я сейчас человек подневольный, делаю что говорят...
P.S. Но это конкретно мой случай - вероятно есть другие люди, не стеснённые обстоятельствами

[KApSuL]

всё нашёл проблему вроде бы
Security Update for Microsoft Office 2010 (KB2553154) 32-Bit Edition
удалил апдейт и всё хорошо стало