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
SpecialFolders Property Returns a SpecialFolders object (a collection of special folders). Syntax object.SpecialFolders(objWshSpecialFolders) Arguments object WshShell object. objWshSpecialFolders The name of the special folder. Remarks The WshSpecialFolders object is a collection. It contains the entire set of Windows special folders, such as the Desktop folder, the Start Menu folder, and…