删除由变量设置的自动过滤器

Question

I'm having some trouble removing an autofilter that is set by a variable. I have tried everything I could think of/find online. Nothing seems to be able to remove it. Any suggestions?

Dim CashRange As Range
Set CashRange = Range("L2:L50000")
CashRange.AutoFilter 1, "CASH"
CashLabeledRows = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
CashRange.Parent.AutoFilter.Range.Cells.Interior.ColorIndex = 6
CashRange.Parent.AutoFilterMode = False

Answer 1

Have a look at this examples, maybe they will be helpfull.

If ActiveSheet.FilterMode = True Then 'checks if there are any filters turned on!?
If ActiveSheet.AutoFilterMode = True Then 'if there are filters at all(what so ever)
ActiveSheet.ShowAllData  'Turns off all filters(select all), but not remove them

This is not sequence code, Every line is just for it self. But it can be combined with each other.

Answer 2

Not the optimal answer but after some testing over different data types present in the form, I determined that the filter issue was only present when "CASH" was not present in any cell of the L column.

I decided the best way to combat this for the time being was to do a FIND on the column for the CASH value. Then based on the response, I had a GoTo defined for before and after the above vba. Basically skipping if it was unnecessary.

Thanks everyone for your time and input. Code posted below for reference.

Dim t As Range
Set t = Columns("L").Find("CASH", LookAt:=xlWhole)
If t Is Nothing Then
        GoTo AfterCashYellow
    ElseIf Not t Is Nothing Then
        GoTo CashYellowFill
End If