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