Adding a check box to filter criteria

[trevorc]

Back Again,


I got the code below to work ok, but Is it possible to add a check box to the criteria list so only the items checked are selected for the filter.
See the updated attached file for an example of what I'd like to be able to do. I'm sure it's just an addition to the criteria but haven't found anything online on how to do it.

Sub Filter_Closed()
t = ActiveSheet.Shapes("fltr").TextFrame.Characters.Text
     If ActiveSheet.Shapes("fltr").TextFrame.Characters.Text = "Filter Closed" Then
 
        ActiveSheet.ListObjects("Clipsal_Customers").Range.AdvancedFilter _
        Action:=xlFilterInPlace, _
        CriteriaRange:=Sheets("Automation Data").Range("I5", Sheets("Automation Data").Range("I24"))
 
        ActiveSheet.Shapes("fltr").TextFrame.Characters.Text = "Show All"
      Exit Sub
      Else
        ActiveSheet.ListObjects("Clipsal_Customers").Range.AutoFilter Field:=3
        ActiveSheet.Shapes("fltr").TextFrame.Characters.Text = "Filter Closed"
      End If
End Sub

Edit Mod : this thread relates to https://www.msofficeforums.com/excel...tml#post135417