An error on the error :)
 

On Error Resume Next
Sheets("EMPLOYEE").Delete
Sheets("ALLSALES").Delete
On Error GoTo 0

Regards

Trevor


"Teggaman" wrote in message
om...
try this instead

On Error GoTo 777
Sheets("EMPLOYEE").Select
ActiveWindow.SelectedSheets.Delete
777:
On Error GoTo 0
on error goto end_error
end_error
Sheets("ALLSALES").Select
ActiveWindow.SelectedSheets.Delete
goto end_error

888:
resume 777

end_error:

end sub











"Paul" wrote in message
...
I want VB to delete two sheets if they exist.

In the following example, neither sheet exists. VB handles
the missing EMPLOYEE fine, but then crashes when it hits
the missing ALLSALES. Why?

On Error GoTo 777
Sheets("EMPLOYEE").Select
ActiveWindow.SelectedSheets.Delete
777:
On Error GoTo 0
On Error GoTo 888
Sheets("ALLSALES").Select
ActiveWindow.SelectedSheets.Delete
888:
On Error GoTo 0

TIA
Paul