p.s.: ActiveWorkbook.SaveAs & "\" & 'meant to be: ActiveWorkbook.SaveAs Appication.Workbook.Path & "\" &