VBA Code to show autofilter criteria just show result as <>, even though filter is set

[Barebells]

Hi!

I have used the below code for a while, but a few days ago it suddenly stopped working. Can anybody please help me with a solution for this? It's not working on any computer it's tested on.

<code>Function DispCriteria(Rng As Range) As String
    Dim Filter As String

    Filter = ""
    On Error GoTo Done
    With Rng.Parent.AutoFilter
        If Intersect(Rng, .Range) Is Nothing Then GoTo Done
        With .Filters(Rng.Column - .Range.Column + 1)
            If Not .On Then GoTo Done
            Filter = .Criteria1
            Select Case .Operator
                Case xlAnd
                    Filter = Filter & " AND " & .Criteria2
                Case xlOr
                    Filter = Filter & " OR " & .Criteria2
            End Select
        End With
    End With
Done:
    DispCriteria = Filter
End Function</code>

Where I want to use it in the Excel-file, I use "=DispCriteria(A31)" to get the filter criteria. But a few days ago it just started to show me the result <> in that cell. Anyone that can help a lost noob? Hehe

Best regards

Barebells

 

[Fluff]

Cross posted https://www.excelforum.com/excel-pr...as-even-though-filter-is-set.html#post4840659

Cross-Posting
While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.