Уважаемые мастера подскажите пож-та

Работаю с VBA Excel
Добавляю стандартный ComboBox ...хочу его заполнить сразу
Не хочет заполнятся список ...почему ?
Щелкаю по люкапу ничего НЭТ !!! Караул чё делать ...подскажите пож-та

Private Sub UserForm_Activate()
ComboBox6.AddItem "Первый", 0
ComboBox6.AddItem "Второй ", 1
End Sub

Jojo®

Сделал
Ошибка в том что cd-во .Text - обязательно для заполнения :)
а я не знал ...гружу млин

' Загрузим список подразделений

CbSpisokPod.Text = Workbooks("zt.xls").Sheets("Parametrs").Cells(7, 2).Value
CbSpisokPod.AddItem Workbooks("zt.xls").Sheets("Parametrs").Cells(7, 2).Value, 0

For i = 1 To 20
CbSpisokPod.AddItem Workbooks("zt.xls").Sheets("Parametrs").Cells(i + 2, 3).Value & "-" & Workbooks("zt.xls").Sheets("Parametrs").Cells(i + 2, 5).Value, i
Next i


Jojo®

Спасибо за отклик
Jojo®