Workbooks.Open Filename:= _ "?:\(path to the file)", UpdateLinks:=0
ActiveWorkbook.Save ActiveWindow.Close