Column header to fill with a colour when filter applied?

I have various buttons on a home tab which filter Sheet2 depending on which button is clicked. The filters hide columns on Sheet2, amongst other things.

Would it be possible to add some vba to the filter code which colours in a certain column header(s)?

For example here's my code for one of the buttons:

Sub ActivateAndSortLastWeek()
Sheet2.Range("B:D,L:R,T:U,X:X").EntireColumn.Hidden = True
Dim lr As Long
    lr = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
    Sheet2.Activate
    With Sheet2.Range("A1:X" & lr)
        .AutoFilter Field:=1, Criteria1:=xlFilterLastWeek, Operator:=xlFilterDynamic
    End With
End Sub

For the scenario above, I'd like S1, V1 and W1 changed from their current colour to orange, so it is clear for the user to understand which columns they need to fill in at which time.

I'd like the column headers to then revert to their old colour when a reset button is clicked... perhaps some reset colour code could be added to the below?:

Sub ShowAllData()

Sheets("Sheet2").Select

ActiveSheet.AutoFilterMode = False
ActiveSheet.Cells.EntireColumn.Hidden = False

End Sub

Thanks in advance.