Opdatering af udregning

Jeg har lavet et ferieregneark,hvor man ved at indsætte en farve, "afkrydser" de dage man har brugt på ferie.
Jeg har lånt lidt vba kode til det:
Function ColorCell(rRange As Range, rColor As Range) As Double
Dim rCell As Range, iColor As Integer
Dim dCount As Double
    Application.Volatile
    For Each rCell In rRange
        If rCell.Interior.ColorIndex = rColor.Interior.ColorIndex Then dCount = dCount + 1 / 3
    Next rCell
    ColorCell = dCount
End Function
I celle A100 har jeg indsat formlen der "henter" den farve
jeg bruger til at markere feriedagene med:
=colorcell(B3:AV33;A100).
I celle aw11 har jeg indtastet antal feriedage og formlen :
=34,16-(A100).
Mit problem er at feriedagene kun bliver talt ned, når regnearket bliver lukket og åbnet igen. Hvordan får jeg restferietallet til at blive nedjusteret med det samme? Og justeret op hvis man fjerner en farve igen?
mvh
Martin Rosquist