循环工作表并删除

我试图循环工作表和删除不需要的。问题是,我想循环和删除基于VBA编辑器(名称),但我得到一个错误。回路工作正常。任何帮助都将不胜感激。

Sub Remove_Sheets()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets

        If ws.Name = wsOriginal Or ws.Name = wsRecords Then
        Else
            ws.Delete
        End If

    Next ws

End Sub

图片: