Macro issue

Try this small change:

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

Select allOpen in new window

---

»bp

You would also have to change

        If Mid(Item0, "-") > 0 Then

to

        If InStr(Item0, "-") > 0 Then

Your code should be in a Standard Module.

I see no reason to actually delete the sheet and replace when you can simply clean up th e existing sheet.

Also, I've added a Function to save looping to check if the sheet exists.
ErrorFilter.xlsm