Radio buttons acting strangely

[Mikeymike_W]

Hi All,

I'm having some issue with my radio buttons.
They were working fine, I have them all grouped into their relevant sections however now when a select a radio button in a particular group it changes the appearance of the other selected radio buttons making the black dot appear smaller.

Also I have a macro to deselect all the radio buttons which again used to work but now only works for some of the groups:

For Each obj In ActiveSheet.OLEObjects
Set obj = obj.Object
'Test to check it's an option button
If TypeOf obj Is MSForms.OptionButton Then
obj.Value = False
End If

If TypeOf obj Is MSForms.CheckBox Then
obj.Value = False
End If

If TypeOf obj Is MSForms.TextBox Then
obj.Value = ""
End If

Any help would be greatly appreciated,

Mike