Donde esta el error?

Buenos dias

Alguien podria decirme donde esta el error aqui?

Me dice que no se ha definido la sub o funcion

Private Sub Activar_Edicion_Peso_Click()

If Activar_Edicion_Peso.Value = -1 Then

For Num = 1 To 16

If Not IsNull(Peso_Calibre_(Num)) Then Peso_Calibre_(Num).Enabled = True
Peso_Calibre_(Num).Locked = False
Peso_Calibre_(Num).BackColor =
16777215
Else

If Not IsNull(Peso_Calibre_(Num)) Then Peso_Calibre_(Num).Enabled =
False
Peso_Calibre_(Num).Locked = True
Peso_Calibre_(Num).BackColor =
12632256


Next Num
End Sub

En realidad la variable Peso_Calibre_(num) corresponderia a:

Peso_Calibre_1
Peso_Calibre_2
Peso_Calibre_3

Peso_Calibre_16

¿Que me falta?

Gracias por vuestra ayuda.