如何使用 vba 将数据添加到组合框？

Question

我想将唯一数据（来自同一工作簿中的 MainMenuData 工作表）添加到 Sheet1 上的 ActiveX 组合框中。将 ComboBox 名称从“属性”更改为“ 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 for Applications
编译错误：

变量未定义

但是如果我将按钮放在同一张工作表（即 sheet1）上，则上述代码将成功执行，并且数据将添加到组合框中。