Botão para chamar função

Olá,

Estou criando uma planilha onde é contada o número de células coloridas em uma range com o seguinte código:

Public Function CountCcolor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.Color
For Each datax In range_data
If datax.Interior.Color = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next datax

End Function

e depois e uma célula do excel uso o código na célula A11 (=10 - CountCcolor(A1:A10;D1)), só que ao alterar a cor de uma célula o valor do calcula não atualiza automaticamente, eu tenho que clicar na celula A11 e depois ir na barra de formula e clicar no botão inserir.

Desta forma meu questionamento é como coloco um botão para chamar esta função. Já tentei colocar no sub do botão o código “Call Val(10 - CountCcolor(A1:A10;D1))” só que está dando erro de síntese no " : "

Obrigado.