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