Ativar macro ao clicar em uma célula no excel

[Rodrigo Leandro Butigeli]

boa tarde pessoal, tenho uma planilha de pontuação e preciso de uma macro que configure uma certa formação (cor) quando clico em algumas células. estou enviando a planilha com as idéias de soma que tive (somando as células coloridas de preto) usando o pincel de formatação funciona bem, existe uma maneira mais fácil?

usei essa macro para somar a cor:

 

Public Function SOMACOR(Cor As Range, Intervalo As Range) As Double
Dim i As Range
For Each i In Intervalo
If i.Interior.Color = Cor.Interior.Color Then
SOMACOR = SOMACOR + i.Value
End If
Next
Application.Volatile
End Function

 

defino uma cor para as células que devem ter seu valor somado o que me falta é uma maneira de clicar na célula desejada e ela mudar para essa cor.

 

 

 

nessa macro dando duplo clic adiciona um "." na celula, tem como alterar para que a célula fique toda preta e a fonte branca?

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveCell = "•"
End Sub

 

desde já agradeço

 

Planilha Pontuação.xlsx