VBA Combo Box Значение Компиляция Проблема

Question

Я пытаюсь добавить значения в поле со списком в VBA, но получаю сообщение об ошибке ниже. Есть идеи, что я могу делать не так? Это элемент управления ActiveX.

Option Explicit

Private Sub Workbook_Open()
' Add items to combobox - based off selection in DND worksheet
With Sheet1.cmbComboBox
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

End Sub

Answer 1

Интересно, что по какой-то причине он не распознал Sheet1 как кодовое имя. Код ниже, похоже, работает.

Option Explicit

Private Sub Workbook_Open()
' Add items to combobox - based off selection in DND worksheet
With Worksheets(1).cmbComboBox
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

End Sub

Answer 2

Очень простое исправление, вы не можете ссылаться на лист с именем «Sheet1», просто поместив Sheet1, если вы не установите «Sheet1» в переменную Sheet1. Не очень хороший код. Просто обратитесь к листу обычным способом .... Sheets ("sheet1") или если вы знаете его кодовое имя или индекс, et c .......

Private Sub Workbook_Open()
' Add items to combobox - based off selection in DND worksheet
With Sheets("Sheet1").cmbComboBox
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

End Sub