Autofilter-Statusanzeige in Zelle

ich möchte, dass in einer Zelle angezeigt wird, ob ein bestimmter Autofilter gerade aktiv ist oder nicht. Dazu habe ich mir folgende Funktion gestrickt, die aber noch nicht ganz funktioniert:

Function afilter()

Application.Volatile True
If Worksheets("ISTs").Autofilter.Filters(2).On Then
afilter = 1
Else
afilter = 0
End If
End Function

In der zelle steht folgende Formel:

=wenn(Afilter=1;"on";"off")

Ich möchte, dass jedesmal, wenn der Autofilter benutzt wird, die Statusanzeige aktualisiert wird, die Funktion muss also im Hintergrund permanent ablaufen (daher application.Volatile), aber leider klappt das nicht.

Kann mir einer den Fehler verraten??

Gruß Erwin S.