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.
Code:
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