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