Como eu adiciono dados na caixa de combinação usando vba?

Question

Eu quero adicionar dados exclusivos (da planilha MainMenuData na mesma pasta de trabalho) na caixa de combinação ActiveX colocada na planilha1. Nome da caixa de combinação alterada de propriedades para ZoneDropDown . Escreveu o seguinte código no evento aberto da pasta de trabalho.

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

Ocorre o seguinte erro para ZoneDropDown

Microsoft Visual Basic for Applications
Compile error:

Variable not defined

Mas se eu colocar o botão na mesma planilha (ou seja, folha1) acima do código, execute com êxito e os dados serão adicionados à caixa de combinação.