For next loop met CheckBoxes

[Billy40]

Voor een groot aantal CheckBoxes heb ik dezelfde programmacode nodig. Ik werkt met VBA onder Excel 2002 SP3 en wil graag een For Next loop gebruiken om de hoeveelheid code te beperken. Ik kwam onderstaande code tegen en leek me ideaal:

Dim i as integer
Dim strControl as string
dim cb as CheckBox

For i=1 to 10
strControl = "CheckBox" & cstr(i)
set cb = me.Controls(strControl)
cb.additem ""
next

Alleen het programma blijft hangen op me.control met de Melding: "Kan de methode of het gegevenslid niet vinden."

Wie kan me vertellen hoe dit kan?

 

[paulva]

Zo moet het zijn volgens mij:

Dim i As Integer
Dim strControl As String
Dim cb As Control

For i = 1 To 10
     strControl = "CheckBox" & CStr(i)
     Set cb = Me.Controls(strControl)
     cb.Value = True
Next