Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. There is a Filters collection associated with the AutoFilter object that holds a Filter object for each field in the AutoFilter
Sub Main()
     With ActiveSheet.ListObjects(1)
         If .ShowAutoFilter Then
             With .AutoFilter.Filters(2)
                 If .On Then
                    MsgBox .Criteria1
                 End If
             End With
         End If
     End With
End Sub