День добрый!

Прошу помочь в решении следующей задачи:

Имеется форма с combobox. Проблема возникает в следующем: при каждом открытии формы combobox заполняется снова и снова. Как сделать так чтобы он заполнялся только один раз?

Private Sub UserForm_Activate()

If UserForm2.ComboBox1.Value = "" Then
With UserForm2.ComboBox1
.AddItem "Обзвон"
.AddItem "Направление СП в ССП"
.AddItem "Направление уведомления должнику"
.AddItem "Выход СИП в адрес Должника"
.AddItem "Возбуждение ИП"
.AddItem "Действия СПИ"
.AddItem "Удержание из заработной платы"
.AddItem "Рассрочка"
.AddItem "Обещание оплатить"
.AddItem "Обжалование действий (бездействий) СПИ"
.AddItem "Нарушен срок исполнительного производства"
.AddItem "Выход СИП в адрес Должника"
.AddItem "ИП окончено/прекращено"
.AddItem ""
end with
End Sub

К сожалению теперь вообще список пропал.

Все, сделал )

Private Sub UserForm_Activate()

If UserForm2.ComboBox1.Value = "" Then
With UserForm2.ComboBox1

.AddItem "бла бла"

End With

End If


End Sub

NullUzer,

Спасибо, тоже дельный совет!