Agradecemos antecipadamente por qualquer ajuda sobre isso que você pode oferecer.

Com a ajuda deste site criei a seguinte função;

Function ColorFunction(rColor As Range, rRange As Range, Opcional SUM As Boolean)
Dim rCell como intervalo
Dim lCol enquanto
Dim vResultado
lCol = rColor.Interior.ColorIndex
Se SOMA = Verdadeiro Então
Para cada rCell em rRange
Se rCell.Interior.ColorIndex = lCol Então
vResult = WorksheetFunction.SUM(rCell, vResult)
Se acabar
Próximo rCell
Outro
Para cada rCell em rRange
Se rCell.Interior.ColorIndex = lCol Então
vResultado = 1 + vResultado
Se acabar
Próximo rCell
Se acabar
ColorFunction = vResultado
Função final


Em cada célula de destino que desejo uma soma de todas as células nessa linha que contêm a cor da célula especificada;
=função de cor(AR4,H5:AP5,TRUE)

Como posso atualizar a venda de destino quando qualquer outra célula na linha (H5:AP5) muda de cor?