VBA highlight filtered column (top row only)

[MichaelRSnow]

I have located this code which highlights the whole column and changes all other columns to colour blank, is there a way of adjusting this so it only applies it to the top row (row 1) and not the whole column?

Any help would be much appreciated

[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Worksheet_Calculate() 
    ColorAutoFilter 
[COLOR=blue]End Sub[/COLOR] 

[COLOR=blue]Sub[/COLOR] ColorAutoFilter() 
    [COLOR=blue]Dim[/COLOR] FilterNum [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR] 
    [COLOR=blue]With[/COLOR] ActiveSheet 
        [COLOR=blue]If[/COLOR] .AutoFilterMode [COLOR=blue]Then[/COLOR] 
            [COLOR=blue]For[/COLOR] FilterNum = 1 [COLOR=blue]To[/COLOR] .AutoFilter.Filters.Count 
                [COLOR=blue]If[/COLOR] .AutoFilter.Filters(FilterNum).On [COLOR=blue]Then[/COLOR] 
                    .AutoFilter.Range.Columns(FilterNum).Interior.ColorIndex = 6 [COLOR=darkgreen]'yellow[/COLOR]
                [COLOR=blue]Else[/COLOR] 
                    .AutoFilter.Range.Columns(FilterNum).Interior.ColorIndex = xlNone 
                [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] 
            [COLOR=blue]Next[/COLOR] 
        [COLOR=blue]Else[/COLOR] 
            .Cells.Interior.ColorIndex = xlNone 
        [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] 
    [COLOR=blue]End With[/COLOR] 
[COLOR=blue]End Sub[/COLOR]

 

[p45cal]

I no longer contribute to the MrExcel forum (others, yes); I hope Andrew helps.

 

[Nlhicks]

So, the code above highlights the columns that are being filtered on but, I want to highlight the row that is being filtered and then unfilter but leave the row colored and all other rows not colored