Save File Issue

[lylegross]

Can someone tell me what I am doing wrong in the save file code.
I want the code to save to the file below by year automatically.
The save file does partially work.
I’m getting run time error 1004
Method ‘Save as’ object ‘_workbook’ failed

Old code
"I:\DOCUMENT_LIBRARY\ISO 9001 QMS\Quality Control\Records\Calibration\Calibration fiscal year 2015
ActiveWorkbook.SaveAs Filename:= _
"I:\DOCUMENT_LIBRARY\ISO 9001 QMS\Quality Control\Records\Calibration\Calibration fiscal year 2015\Master Calibration Rev 04 Year 2015.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Sub () SAVEFILE
a = Year((Now))
ChDir _
"I:\DOCUMENT_LIBRARY\ISO 9001 QMS\Quality Control\Records\Calibration\Calibration fiscal year " & a
ActiveWorkbook.SaveAs Filename:= _
"I:\DOCUMENT_LIBRARY\ISO 9001 QMS\Quality Control\Records\Calibration\Calibration fiscal year & a\Master Calibration Rev 04 Year & a.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Sub end
Thanks for the help

[Kenneth Hobson]

You have several issues there. The main thing is that when you are building a string, it is best to see what it builds to. Obviously, incorrect syntax will show even before you Compile.

You can use Debug.Print to put a run's result into VBE's Immediate Window to see the result.

Please Login or Register  to view this content.

[lylegross]

Thanks for all the help