谢了一个批量删除工作表的宏，可是必须全文匹配才可以用，请高手大哥来帮我看看

是这样的，因为这个工作薄里面有上百个工作表，有的是我不需要打印的，我就想先删掉，然后一起打印需要的，比较方便。
所以写了一个宏，就是只保留带有“表-02”。“表-04”，“表-08”，“表-12”这几个字符的工作表。可悲催的是，我写好了宏运行，没有一个工作表全文匹配，因为这些表的名称全部是比如：“1_(XXXX工程)〖表-02〗工程项目招标控制价汇总表”这样的名字。
以下是我写的宏，希望高手可以帮忙改改，感激不尽呢。
Dim ash As Worksheet
Application.DisplayAlerts = False
For Each ash In ThisWorkbook.Worksheets
If ash.Name <> "表-02" And ash.Name <> "表-04" Then
  ash.Delete
End If
Next
Application.DisplayAlerts = True