Ananthak275
Board Regular
- Joined
- Aug 22, 2020
- Messages
- 128
- Office Version
- 2013
- Platform
- Windows
- MacOS
When I run this, the only the first workbook is saved as System. both document and optimization error out that "document not saved 1004"
Set wbk_syst = ActiveWorkbook
ActiveWorkbook.SaveAs "\\Extract\system " & Format(Date, "yyyy-mm-dd") & ".xlsx"
Workbooks.Add
Set wbk_doc = ActiveWorkbook
ActiveWorkbook.SaveAs "\\Extract\documents " & Format(Date, "yyyy-mm-dd") & ".xlsx"
Workbooks.Add
Set wbk_doc = ActiveWorkbook
ActiveWorkbook.SaveAs "\\Extract\optimization " & Format(Date, "yyyy-mm-dd") & ".xlsx"