Changing color of all combo boxes with VBcode

[bamaisgreat]

Hello, Is there some code to change the fill color of all the combo boxes I have on a spreedsheet. Thanks

 

[Datsmart]

This will shade all Combo Boxes on the active worksheet to a Gray background.

Sub ColorCB()
    For Each Sh In ActiveSheet.Shapes
        If Sh.Type = msoOLEControlObject Then
            If TypeName(Sh.OLEFormat.Object.Object) = "ComboBox" Then
                Sh.OLEFormat.Object.Object.BackColor = &HE0E0E0
            End If
        End If
    Next Sh
End Sub

If you want a different color, note the hexadecimal color numbers in the Properties section as you manually pick different color selections.

 

[bamaisgreat]

thanks John