VB Code to display AutoFilter selection

[JPM]

I don't seem to get anyway with my other request http://www.mrexcel.com/board2/viewtopic.php?t=179802 so I am thinking about going the VB route.

My situation is, that I have a list with AutoFilter and need to display in a label or heading in a graph that shows what selection on the filter has been made.

Anyone who can help -- please?
Thx,
JPM

 

[JPM]

Well nevermind, I figured a way by using a function:

Function AutoFilterCriteria() As String
Dim F As Long, sTemp As String


Application.Volatile


sTemp = ""
With ActiveSheet
If .AutoFilterMode = False Then Exit Function
If .FilterMode = False Then Exit Function


With .AutoFilter.Filters
For F = 1 To .Count
With .Item(F)
If .On Then
sTemp = .Criteria1
If .Operator = 1 Then
sTemp = sTemp & " and " & .Criteria2
ElseIf .Operator = 2 Then
sTemp = sTemp & " or " & .Criteria2
End If
Exit For
End If
End With
Next F
End With
End With


Done:
AutoFilterCriteria = sTemp
End Function