ActiveWorkbook.SaveAs filename:=path, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close SaveChanges:=True Workbooks.Open path