Filtros y colores

hola, Santiago !

... cambiar el color azul del boton de un filtro cuando ... esta seleccionado ... que ... sea mas llamativo como un amarillo o

rojo [...]

puedes cambiar el color de fondo y fuente de la/s celda/s_titulo con filtro 'activo'
lo ideal seria que el codigo este 'contenido' en el evento '_calculate' de la hoja [para que sea automatico]
- si la hoja NO contiene formulas, el evento '_calculate' NO se 'dispara' :((
[seria 'necesario' correr una macro 'manual' o incorporar una 'simple' suma o alguna funcion del tipo =hoy()]
=> copia/pega las lineas que te expongo al final.

saludos,
hector.

en el modulo de codigo de la hoja [click-derecho sobre la pestaña del nombre / ver codigo...]
Private Sub Worksheet_Calculate()
Dim Filtro As Integer
Application.ScreenUpdating = False
With Me
If Not .AutoFilterMode Then Exit Sub
With Range(.AutoFilter.Range.Address)
For Filtro = 1 To .Columns.Count
With .Cells(1, Filtro)
If .Parent.AutoFilter.Filters(Filtro).On Then
.Interior.ColorIndex = 6
.Font.ColorIndex = 3
Else
.Interior.ColorIndex = xlColorIndexNone
.Font.ColorIndex = xlColorIndexAutomatic
End If
End With
Next
End With
End With
End Sub

notas:
1.- si 'necesitas' utilizar una sola macro para varias hojas...
a) 'mueve' el codigo del evento 'Worksheet_Calculate' del modulo de 'la hoja'...
al evento 'Workbook_SheetCalculate' => en el modulo del libro < b) modifica la linea 'With Me' a... => With ActiveSheet <2.- toma nota de que [con cualquier opcion] =>se pierde<= el 'beneficio' del deshacer [undo... ctrl+z] :((