title: Excel VBA - Sheet Name Wild Card Search
body: <p>I have a workbook with lot of sheets and pivot tables. All the sheets with Pivot Tables have Pvt Tbl in the sheet name. Now I want to clear data in all the sheets except sheets with Pivot Table and Control Sheet (Where I have all my buttons for operations) I have the following code so far but it doesn't seem to be working. I also want make "Control" sheet only visible and rest of the sheets should be hidden. I am doing a wild card search in sheet names by using Like Statement with "*Pvt Tbl" but it still deletes Pivot Tables in all worksheets. Any help is appreciated. Thanks in advance!!</p>
  
  <pre><code>Sub ClearData()
  
  Application.ScreenUpdating = False
  
  Dim ws As Worksheet
  
  For Each ws In ThisWorkbook.Worksheets
      If Not ws.Name Like "Control" Or ws.Name Like "*Pvt Tbl" Then ws.Cells.Delete: ws.Cells.Delete
      If Not ws.Name Like "Control" Then ws.Visible = False
  Next
  
  Application.ScreenUpdating = True
  
  End Sub
  </code></pre>