¿Cómo agrego datos al cuadro combinado usando vba?

Quiero agregar datos únicos (de la hoja de trabajo MainMenuData en el mismo libro) en el cuadro combinado ActiveX ubicado en la hoja1. Se cambió el nombre del cuadro combinado de Propiedades a ZoneDropDown. Escribió el siguiente código en el evento abierto del libro de trabajo.

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

Da el siguiente error para ZoneDropDown

Microsoft Visual Basic para Aplicaciones
Error de compilación:

Variable no definida

Pero si coloco el botón en la misma hoja de trabajo (es decir, la hoja 1) sobre el código, ejecute con éxito y agregue los datos al cuadro combinado.

microsoft-excel vba

— curioso K
fuente

No ha definido Dim Zn()como nada (entero, cadena, etc.). ¿Para qué sirve? Si lo comenta, ¿funciona el código?

— CharlieRB

En lugar de ZoneDropDown.AddItem Sheets ("MainMenuData"). Celdas (R, 7) Cambio a Sheets ("Sheet1"). ZoneDropDown.AddItem Sheets ("MainMenuData"). Celdas (R, 7) y funciona

— curioso K