Activex Optionbuttons not clearing

[Mikeymike_W]

Hi all,

I have a sheet with numerous Activex optionbuttons.

I have a reset macro which would put the value of each button to false, this used to work fine but I added a new optionbutton (no big deal I thought) but now the macro runs but doesn't change the value, the code is below and any help would be greatly appreciated.

Dim box As OLEObject
    For Each box In ActiveSheet.OLEObjects
        If TypeName(box.Object) = "OptionButton" Then
            box.Object.Value = False
            box.Object.Enabled = True
        ElseIf TypeName(box.Object) = "CheckBox" Then
            box.Object.Value = False
        ElseIf TypeName(box.Object) = "ListBox" Then
            box.Object.Clear
        End If

Next box

 

[Mikeymike_W]

Don't worry its sorted, Just had to change where my screen updating and enable events was coming in.