Quote:
Originally Posted by Ben McClave
I see.
If your combo box is a "DropDown" type, then you could add a new variable to the code, and use that to populate the "sFind" variable. Here are the new lines to include:
Dim dd As DropDown 'DropDown box
Set dd = ThisWorkbook.Sheets("HOME").Shapes("Drop Down 1").OLEFormat.Object
sFind = dd.List(dd.ListIndex)
To determine if your combobox is a DropDown, enter this line in the Immediate Window to see if it returns "8":
Print ThisWorkbook.Sheets("HOME").Shapes("Drop Down 1").Type
|
it says it doesn t find this element. Apologies but it is not a drop down it is the combo box not with active X