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

[NoSparks]

could do it this way

[Pecoflyer]

@trevorc
I took the liberty of creating a new thread with your "follow-up " question.
If another member had the same problem and your new question had stayed in the previous thread he would not have found it, as members usually check the thread titles only.
So, it's always best to create a new thread (with a descriptive title as you always do) with, eventually, a link to all pertaining threads when you have a "new" question in an existing thread.

[trevorc]

Thanks, for the awesome effort you have put in, it's exactly what I needed