I am looping through a worksheet with activex objects, I would like to set properties of the object

Trying to Change the background colors on option buttons as well will be doing checkbox

Here is code

Set sht = Worksheets(1)
Dim objX As OLEObject

For i = 1 To sht.OLEObjects.Count
    If TypeName(sht.OLEObjects(i).Object) = "OptionButton" Then
        sht.OLEObjects(i).Object = False
        sht.OLEObjects(i).BackColor = &HFFFFFF
   End If
Next i