the following code is supposed to print sheet2 if there is a sheet two, then
delete sheet2. So the first part checks if there is content on sheet2("A1")
and prints it. If ther is no content on sheet2 the error handler skips this
step. Then it is supposed to delete sheet2. If there is no sheet2 the error
handler resume next is supposed to skip this part but it is not. If there is
no sheet2 the line-Worksheets("Sheet2").Delete, returns a runtime error 9.

Why does the on error resume next not working? Thanks

Sub print()
On Error GoTo skipprint

If Not Worksheets("Sheet2").Range("A1").Value = "" Then
If MsgBox("You have trades that need to be placed manually. Do you want to
print them?", vbYesNo) = vbYes Then
Worksheets("Sheet2").Rows.AutoFit
Worksheets("Sheet2").Columns.AutoFit
Worksheets("Sheet2").PrintOut

Else
skipprint:
End If
End If

MsgBox ("If prompted select 'Delete' or this will not work.")
On Error Resume Next
Worksheets("Sheet2").Delete

End Sub