Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Close a workbook and save it

Sub CloseWorkbook()    Dim Workbook1 As Workbook       Set Workbook1 = Workbooks.Open(FileName:=ThisWorkbook.Path & "\Temp.xls")    Range("A1").Value = Format(Date, "ddd mmm dd, yyyy")    Range("A1").EntireColumn.AutoFit    Workbook1.Close SaveChanges:=True End Sub