Deleting Worksheets Based on Multiple Worksheet Criteria

Question

I am continuing to build on macros related to data retrieved from mainframe, similar to what is mentioned in my previous questions.

I am generating a large number of

Answer 1

tmp = IndividualWorkSheet.Name  
If tmp <> "Sheet1" And tmp <> "Criteria" And _
   tmp <> "TemplateSheet" And tmp <> "TemplateSheet2" Then 
      IndividualWorkSheet.Delete     
End If

Array-based approach:

Dim arr
arr = Array("Sheet1", "Criteria", "TemplateSheet", "TemplateSheet2")

If IsError(Application.Match(IndividualWorkSheet.Name, arr, 0)) Then
    IndividualWorkSheet.Delete    
End If