nathanpeattie
New Member
- Joined
- Dec 17, 2005
- Messages
- 43
this is my code
Sub macro1()
FileID = InputBox("Type The PO Number To Be Saved")
ActiveWorkbook.SaveAs Filename:= _
"C:\Montford\Quotes\Customers\" & FileID & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
if I click cancel in the diaglog box it get
Runtime Error "1004"
Method 'SaveAs' of object '_Workbook' Failed
and I get End And Debug (How to fix?)
Thanks
Sub macro1()
FileID = InputBox("Type The PO Number To Be Saved")
ActiveWorkbook.SaveAs Filename:= _
"C:\Montford\Quotes\Customers\" & FileID & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
if I click cancel in the diaglog box it get
Runtime Error "1004"
Method 'SaveAs' of object '_Workbook' Failed
and I get End And Debug (How to fix?)
Thanks