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