ComboBox на Userform Ошибка выполнения "13"

Question

В моем коде ниже у меня ошибка выполнения 13 (несоответствие типов).Я не знаю, в чем проблема?Я попытался заполнить поле со списком имен.Ошибка появляется в UserForm_Activate ().

Private Sub UserForm_Activate()
    Dim xSheet As Worksheet

    ComboBox2.Clear

    For Each xSheet In ActiveWorkbook.Sheets
        ComboBox2.AddItem xSheet.Name
    Next xSheet
End Sub

Private Sub UserForm_Initialize()
    Dim lblName As String
    Dim lblDate As String

End Sub

Answer 1

Хорошо, проблема была в том, что у меня был диалоговый лист Excel 5.0, который мне пришлось удалить, чтобы выпадающий список не вылетал.Благодаря @dwirony вы привели меня к идее!