Hi,

I want to reset all (control toolbox-)optionbuttons on an excel-
worksheet.
I've already came to this, but now I'm stuck:

Dim obj As OLEObject
Dim cnt As Long
'cnt = 0
For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is MSForms.OptionButton Then
'cnt = cnt + 1
' HERE I HAVE TO SET THE VALUE TO FALSE <<<
End If
Next
'MsgBox "Number of optionbuttons is " & cnt

Am I doing this right so far, or do I have to follow another approach?
I really need this as quick as possible...
thx...