Как добавить данные в поле со списком с помощью VBA?

Question

Я хочу добавить уникальные данные (из листа MainMenuData в той же книге) в поле со списком ActiveX, расположенное на листе 1. Имя ComboBox изменено с Properties на ZoneDropDown . Написал следующий код на мероприятии открытия книги.

Private Sub workbook_open()

Dim Zn()

Dim R As Integer

For R = 1 To 248

    ZoneDropDown.AddItem Sheets("MainMenuData").Cells(R, 7)

Next

End Sub

Это дает следующую ошибку для ZoneDropDown

Microsoft Visual Basic для приложений
Ошибка компиляции:

Переменная не определена

Но если я размещу кнопку на том же листе (т.е. листе 1) над кодом, код будет успешно выполнен, и данные будут добавлены в поле со списком.