How to get early filter?
 

Hello, Dear Professional Programmers

I have question how to get what was field filtered. I created Form like Custom
filter, you know that when i open the Dialog it shows criteria filtered early.
For example "Equal" = "5"
or "Have" = "Ans"

I found this but it is not what i need :(

lngCount = 1
For Each objFilterPart In ActiveSheet.AutoFilter.Filters
If objFilterPart.On Then
strFilterList = strFilterList & _
"Columns " &
ActiveSheet.AutoFilter.Range.Columns(lngCount).Col umn & vbCr
End If
lngCount = lngCount + 1
Next 'objFilterPart
MsgBox strFilterList

Thank you for answer about Filter Javed, Jef Gorbach early.