Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Save workbook and close

Sub CloseWorkbook()    Dim myWorkbook1 As workBook      Set myWorkbook1 = Workbooks.Open(Filename:="E:\SalesData.xls")    Range("A1").Value = Format(Date, "ddd mmm dd, yyyy")    Range("A1").EntireColumn.AutoFit    myWorkbook1.Close SaveChanges:=True End Sub