How to avoid an error dialog

[Guest]

I have a simple code to save a couple of pages of paperwork to a file to be
emailed to corporate nightly, It works fine. The problem that I am having is
that if someone runs this script and chooses to cancel the process at any
point I get a run time error 1004: Method 'SaveAs' of object '_Workbook'
failed. Then offers the Debug button for VB editing. I don't want anyone in
this file at all. How can I get it to skip the error and just end the sub
when this happens. Code Attached

Application.ScreenUpdating = False
Sheets("Daily").Select
With ActiveSheet
If Range("WEEK") = "WEEK 1" Then
Sheets("Data").Select
Application.Goto Reference:=Range("A1"), Scroll:=True
Sheets(Array("Cover", "Weekly Gross Sheet 1", "Payroll Analysis 1")).Copy
ActiveWorkbook.SaveAs Sheets("Cover").Range("B15").Value
Sheets("Cover").Select
ActiveSheet.Delete
ActiveWindow.Close
End If
If Range("WEEK") = "WEEK 2" Then
Sheets("Data").Select
Application.Goto Reference:=Range("A1"), Scroll:=True
Sheets(Array("Cover", "Weekly Gross Sheet 2", "Payroll Analysis 2")).Copy
ActiveWorkbook.SaveAs ActiveSheet.Range("B15").Value
Sheets("Cover").Select
ActiveSheet.Delete
ActiveWindow.Close
End If
End With
Sheets("Daily").Select
Application.Goto Reference:=Range("A1"), Scroll:=True
Application.ScreenUpdating = True

 

[Guest]

possibly:
At the beginning of the procedure add this:

On Error GoTo ErrorExit

Then insert this as the lines before "End" Sub or Function:

ErrorExit:
Err.Clear

-OR-
You could use On Error Resume Next at the beginning, to suppress any error
messages that may occur in the procedure.

I hope this helps!
GS

 

[Guest]

Thanks, That did the trick.

Justa