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