reset control toolbox optionbuttons

[ludwigdv]

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...

 

[Bob Phillips]

I take it this is what you want

Dim obj As OLEObject
Dim cnt As Long
For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is MSForms.OptionButton Then
cnt = cnt + 1
obj.Object.Value = False
End If
Next
MsgBox "Number of optionbuttons is " & cnt

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[ludwigdv]

Thank you so much Bob!