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