No me funcina esta macro

Encontre esta macro en una pagina que no recuerdo en estos momentos,
pero me es util para mi trabajo. Esta macro lo que hace es colocar la
celda en donde filtro con un fondo de color (en este caso amarillo)
para advertir mas visiblemente cual(es) columnas estoy filtrando. Me
funciona bien en el archivo de ejemplo pero cuando intento colocarlo en
mi libro de macros personales no me trabaja, ¿como debo hacer?

Private Sub Worksheet_Calculate()
Dim af As AutoFilter
Dim fFilter As Filter
Dim iFilterCount As Integer

If ActiveSheet.AutoFilterMode Then
Set af = ActiveSheet.AutoFilter
iFilterCount = 1
For Each fFilter In af.Filters
If fFilter.On Then
af.Range.Cells(1, iFilterCount) _
.Interior.ColorIndex = 6
Else
af.Range.Cells(1, iFilterCount) _
.Interior.ColorIndex = xlNone
End If
iFilterCount = iFilterCount + 1
Next fFilter
Else
Rows(1).EntireRow.Interior.ColorIndex = xlNone
End If
End Sub

Gracias por su ayuda.