title: Using an array for autofilter criteria
body: <p>I have the below code which will delete rows based on criteria in column I:</p>
  
  <pre><code>Sub Strip()
      Dim rng As Range
  
      With ActiveSheet
          .Columns("I").AutoFilter Field:=1, Criteria1:="=70-79%", VisibleDropDown:=False
          Set rng = .AutoFilter.Range
      End With
      If rng.Columns("I").SpecialCells(xlCellTypeVisible).Count - 1 &gt; 0 Then
          Application.DisplayAlerts = False
          rng.Offset(1, 0).SpecialCells(xlCellTypeVisible).Delete
          Application.DisplayAlerts = True
      End If
      rng.AutoFilter
  End Sub
  </code></pre>
  
  <p>I have about <code>100</code> different criteria that I want to act on in this way. I'd rather not have to repeat this code <code>100</code> times, and so can anyone tell me how to code this in the form of an array? I've tried various methods but can't seem to get it to work. </p>