Excel VBA заполнить Comobox

Question

Мне нужно заполнить несколько списков для моей пользовательской формы в vba, но этот ящик не заполняется при загрузке пользовательской формы.Вот код:

Private Sub UserForm_Initialize()
    ComboBox1.Clear
    ComboBox1.AddItem "C-S-A"
    ComboBox1.AddItem "C-A-T"
    ComboBox1.AddItem "C-A-S"
    ComboBox1.Text = ComboBox1.List(0)
End Sub

Private Sub ComboBox1_Change()
    Select Case ComboBox1.Text
        Case "C-S-A"
        Case "C-A-T"
        Case "C-A-S"
        Case Else
    End Select
End Sub

Answer 1

Я использовал неправильное имя. Это должен быть UserForm_Initialize ().