Highlight column headers used for auto filtering

[Lon]

I am looking for a way to highlight just the column header(s) used in auto filtering. I don't want all the column headers highlighted, just the one(s) currently being used for filtering.

I would prefer a solution using Conditional Formatting but am open to a VBA solution.

THANK YOU in advance!

 

[Nebu]

Hi:

May be something like this?

Thanks

 

[Lon]

Yes. Thank you! Is there a way to make just Row 1 change colors instead of the entire filtered column?

 

[Nebu]

Hi:

If you are looking for rows use the following code.

Sub test()

ActiveSheet.Cells.Interior.ColorIndex = 0
If ActiveSheet.FilterMode Then c& = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    For i& = 1 To c
        If Sheet1.Rows(i).EntireRow.Hidden Then
            Else
                With Range("A1:C" & c)
                    .Rows(i).SpecialCells(12).Interior.ColorIndex = 37
                End With
        End If
Next
End Sub

Thanks