Optionbuttons selecteren

[MayNiak666]

Ik heb een Excelsheet met daarop 17 Optionbuttons. Ze zijn onderverdeeld in 3 groepen, te weten Oorzaak, Uren_Soort en Uren_Percentages. Deze Optionbuttons heb ik geplaatst m.b.v. de werkbalk "Besturingselementen". Wanneer het werkblad geopend wordt, zijn deze Optionbuttons ingesteld als niet Enabled. Pas als het werkblad verstuurd is via e-mail, mogen ze Enabled worden. Weet iemand hoe je een routine schrijft in VBA, die telt hoeveel Optionbuttons er op het werkblad aanwezig zijn, en vervolgens alle Optionbuttons op Enabled zet? Of moet ik ze allemaal 1 voor 1 op Enabled zetten? Alle namen van de Optionbuttons beginnen met "Optie" en ik gebruik Excel 2000. Alvast bedankt voor de suggesties!

 

[MayNiak666]

Laat maar!!!

Ik ben er al uit. Voor de geinteresseerden hieronder de code.

' Optieknopjes activeren
With Worksheets("Werkbon TD")
Aantal = .Shapes.Count
For i = 4 To Aantal
Worksheets(1).Shapes(i).Select
Selection.Enabled = True
Next
End With

Ik dacht er gewoon wat te moeilijk over...