根据工作表名快速删除特定Excel工作表

制作模板时，想要将工作表中完全不存在每个词语的工作表完全删除，执行时会询问需要保留工作表中包含的文字。

Sub DeleteWSwithName()
Application.DisplayAlerts = False '取消删除确认
Application.ScreenUpdating = False '取消界面更新
    wsname = InputBox("请输入需要保留工作表名中包含文字")
    For Each ws In ActiveWorkbook.Sheets
        pos = InStr(ws.Name, wsname)
        If pos = 0 Then
            ws.Delete '删除工作表
        End If
        '工作表名字中不包含输入的字符串时，则删除该工作表
    Next ws
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub