For Each OLEObject In ActiveSheet.OLEObjects
If InStr(.progID, "ComboBox") > 0 Then
'Paol:o, put your relevant code here you that you wish to run when the _
ActiveX control found on the activesheet is a ComboBox
You can't use the type of an OLEObject (i.e. OLEObject.OLEType) as it returns 2 for all types of ActiveX controls.