Automation error on Combo box

HI There Gurus

Need some help, As I am having "writers Block" on an error I am getting.

I have Combo Boxes on my "TEMPLATE" Worksheet which displays a list from the "Product"(Combobox2) or "Packaging" (Combobox3) Tabs. YOu have to select the cell where the info is to be stored. Then have the option to search, or partially search for the product, then be able to select it. The value will then be stored and the combo box will reset to empty.

I always worked, but not sure if it is an Office365 error or me.

I get the following Error:

Run-time error '-2146232576 (80131700)':
Automation error

Then the debugger takes met to this section

Set dar = CreateObject("System.Collections.ArrayList")

Thanks very much