VBA: Farve en celle, hvori der et aktivt autofilter

Hej alle,

Jeg har et datasæt med overskrifter. Og hver enkelt af dem har filter på (autofilter).
Der er omkring 40 kolonner, så for ikke at misse, at der er filtreret på én af kolonnerne, så kunne jeg godt tænke mig, at cellen hvori man valgte selve filteret blev farvet, når der var slået et filter til.

Jeg har ikke rigtig kunne finde nogle gode svar nogle steder på nettet ellers, så jeg håber I kan hjælpe herinde.

Jeg synes tidligere at have set noget med .AutoFilter.On, men jeg kan ikke rigtig finde noget på det, og den bliver ved med at sige .On ikke kan anvendes til det givne objekt.

Min kode ser således ud indtil videre:

Sub ColorWhenAutoFilterIsOn()

Dim rngIndividualHeadline As Range
Dim rngEntireHeadline As Range

Set rngEntireHeadline = Range("A9:O9")

For Each rngIndividualHeadline In rngEntireHeadline
    If rngIndividualHeadline.AutoFilter.On Then
        rngIndividualHeadline.Interior.Color = rgbBlue
        rngIndividualHeadline.Font.Color = rgbWhite
    Else
        rngIndividualHeadline.Interior.Color = rgbAliceBlue
        rngIndividualHeadline.Font.Color = rgbBlack
    End If
Next rngIndividualHeadline

End Sub

Og den giver som sagt fejl?! Hvad gør jeg galt?