title: Loop through filter criteria
body: <p>I've been trying to figure this out but no progress...</p>
  
  <p>I have a filter (COLUMN D) and I'm trying to create a loop to each criteria (I got at least 1000 criterias) on my filter. 
  Ex: For each criteria on filter (column D), I'll run a range copy...</p>
  
  <p>That code isnt working at all:</p>
  
  <pre><code>Sub WhatFilters()
      Dim iFilt As Integer
      iFilt = 4
      Dim iFiltCrit As Integer
      Dim numFilters As Integer
      Dim crit1 As Variant
  
  
      ActiveSheet.Range("$A$1:$AA$4635").AutoFilter Field:=16, Criteria1:= _
              "Waiting"
  
      numFilters = ActiveSheet.AutoFilter.Filters.Count
      Debug.Print "Sheet(" &amp; ActiveSheet.Name &amp; ") has " &amp; numFilters &amp; " filters."
      If ActiveSheet.AutoFilter.Filters.Item(iFilt).On Then
          crit1 = ActiveSheet.AutoFilter.Filters.Item(iFilt).Criteria1
          For iFiltCrit = 1 To UBound(crit1)
              Debug.Print "crit1(" &amp; iFiltCrit &amp; ") is '" &amp; crit1(iFiltCrit)
  
              'Copy everything
  
          Next iFiltCrit
      End If
  End Sub
  </code></pre>
  
  <p>My mistake seems to be identifying my filter column... </p>