Muhammed,

Thank you for answering my question.
Your suggestion works for one OptionButton.

I worked this out as follows (I that there are 66 buttons):

Dim tel As Integer
Let tel = 1
Sheets("vragen").Activate
With ActiveSheet
Do While tel < 66
Me.OLEObjects("OptionButton" & tel).Object.value = 0
tel = tel + 1
Loop
End With

However, I think a construction using For Each - Next is better.
Any suggestions?
Thanking you in advance

Eef

"Muhammed Rafeek M" schreef in
bericht ...
try this one:

Me.OptionButton1.Value = True

pls do rate

"Eef Houniet" wrote:

Readers,

Can OptionButtons be set to 0, using something like For each - Next
??

Up till now I know no better way then

Me.OptionButton1 = 0
Me.OptionButton2 = 0
Me.OptionButton3 = 0
Me.OptionButton4 = 0

Thanks,
Eef