How to get early filter?

[anvarfromkz]

Hello, Dear Professional Programmer

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

I found this but it is not what i need :

lngCount =
For Each objFilterPart In ActiveSheet.AutoFilter.Filter
If objFilterPart.On The
strFilterList = strFilterList &
"Columns " &amp
ActiveSheet.AutoFilter.Range.Columns(lngCount).Column & vbC
End I
lngCount = lngCount +
Next 'objFilterPar
MsgBox strFilterLis

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