Try the below...

Dim obj As Object
For Each obj In ActiveSheet.OLEObjects
If TypeName(obj.Object) = "OptionButton" Then
obj.Object.GroupName = obj.Name
obj.Object.Value = True
End If
Next

'If you mean CheckBox then
Dim obj As Object
For Each obj In ActiveSheet.OLEObjects
If TypeName(obj.Object) = "CheckBox" Then obj.Object.Value = True
Next


If this post helps click Yes
---------------
Jacob Skaria


"Paula" wrote:

I used control tool box for buttons, not activix. Thanks! Paula