Visual Basic - listboxes

hola buenas!! resulta q cuando intento crear un listbox me da el error de "object required"

el codigo es el siguiente!! creo q me falta saber donde tengo q declarar el list y ya estará!!!
Sub cargar_dias()

Fecha = Cells(2, 6)
MES = Format(Fecha, "mm")
AÑO = Format(Fecha, "yy")
If (MES = "01") Or (MES = "03") Or (MES = "05") Or (MES = "07") Or (MES = "08") Or (MES = "10") Or (MES = "12") Then
n = 31
For x = 0 To n
list1.AddItem (x)
Next x
End If
If (MES = "02") Or (MES = "04") Or (MES = "06") Or (MES = "09") Or (MES = "11") Then
n = 30
For x = 0 To n
list1.AddItem (x)
Next x
End If
End Sub

te paso esto, probe y funciona, fijate que la variable fecha se carge y que el list1 exista

Fecha = Cells(2, 6)
MES = Format(fecha, "mm")
AÑO = Format(fecha, "yy")

Select Case Val(MES)
Case 1, 3, 5, 7, 8, 10, 12
For x = 1 To 31
List1.AddItem x
Next x
Case 2, 4, 6, 9, 11
For x = 1 To 30
List1.AddItem x
Next x
End Select

saludos