How to change EMBED name of an ActiveX Combo Box?

[brendalpzm]

Hello everyone,

I inserted several ActiveX combo boxes in a sheet, I figured out a way to reset those combo boxes with a macro button, the thing is that I thought I was only reseting one but instead I was reseting them all (which I don't want) I checked what was I doing wrong and in the code I'm calling is to reset the Forms.ComboBox.1, which is actually the name of all the combo boxes, this name shows up in the formula bar when I select them with the Design Mode.

I already changed the name in the properties window but that =EMBED("Forms.ComboBox.1","") still there in each combo box, is there a way to change the 'forms.combobox.1'? for other name?

 

[davesexcel]

Something like?

ACTIVEsheet.combobox1.clear

 

[brendalpzm]

Something like?

ACTIVEsheet.combobox1.clear

I've tried that but it didn't work

Instead I created a module with this code

Sub ClearComboBox()
Dim ole As OLEObject
' Set Control Toolbox ComboBox to default to first list item
For Each ole In ActiveSheet.OLEObjects
  If ole.progID = "Forms.ComboBox.1" Then
  ole.Object.ListIndex = -1
 End If
Next ole
End Sub

and then added this to my macro button

Sub ResetButton()
Call ClearComboBox
End Sub

But as I mentioned, this clears all my combo boxes, and I want it to clear only 1 specific one, that's called "Category"

 

[brendalpzm]

I've tried that but it didn't work

Instead I created a module with this code

Sub ClearComboBox()
Dim ole As OLEObject
' Set Control Toolbox ComboBox to default to first list item
For Each ole In ActiveSheet.OLEObjects
  If ole.progID = "Forms.ComboBox.1" Then
  ole.Object.ListIndex = -1
 End If
Next ole
End Sub

and then added this to my macro button

Sub ResetButton()
Call ClearComboBox
End Sub

But as I mentioned, this clears all my combo boxes, and I want it to clear only 1 specific one, that's called "Category"

I just figured out, I changed this part

MISTAKE

If ole.progID = "Forms.ComboBox.1"

CORRECT

If ole.Name = "Category"

Thanks anyway!