start

Private Sub Workbook_Open() Application.EnableEvents = False ‘Add Items to ComboBox1 in Sheet1 while opening workbook With Sheet1.ComboBox1 .Clear .AddItem “Fruits” .AddItem “Vegetables” .AddItem “Soaps” .AddItem “Beverages” End With Application.EnableEvents = True End Sub