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…
Public Sub SaveWorksheetsAsCsv() Dim WS As Excel.Worksheet Dim SaveToDirectory As String Dim CurrentWorkbook As String Dim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat ' Store current details for the workbook SaveToDirectory = "H:\test\" For Each WS In ThisWorkbook.Worksheets WS.SaveAs SaveToDirectory & WS.Name, xlCSV Next Application.DisplayAlerts = False ThisWorkbook.SaveAs…