VBA Вроде простой Combobox, а не работает

Формулировка задачи:

Всем привет! Ребята, посмотрите, пожалуйста, этот файл. Я только в процессе изучения VBA, дошел до Combobox. Вот вроде простой пример, а почему-то не работает. Может, я код не там разместил? Если не там, то в какой части нужно? Как его исправить? Сам код:

                    Листинг программы
                
Private Sub UserForm_load()
 
Dim oColumn As Range
Dim oCell As Range
 
Set oColumn = Worksheets("Опции").Range("B2:B20")
For Each oCell In oColumn.Cells
If oCell.Value <> "" Then
UserForm1.ComboBox1.AddItem oCell.Value
End If
Next
UserForm1.ComboBox1.ListIndex = 0
 
End Sub
 
Private Sub CommandButton1_Click()
Worksheets("Главный").Cells(1, 1).Value = UserForm1.ComboBox1.ListIndex
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub

Файл - во вложении

Решение задачи: «VBA Вроде простой Combobox, а не работает»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub UserForm_Initialize()
    Dim iCell As Range
    For Each iCell In [Опции!B2:B20] 'Worksheets("Опции").Range("B2:B20")
        If Not IsEmpty(iCell) Then ComboBox1.AddItem iCell.Text
    Next
    If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub