Forum Pplware

Boa tarde,

Estou com dificuldades em gravar uma função que faz o calculo de celulas com a mesma cor. quando adiciono o procedimento ele funciona mas se sair do excel e voltar a entrar perco o procedimento e não estou a conseguir guardar.

Procedimento:
Public Function SomaCor(scor As Range, somaintervalo As Range)

        Dim mCelula As Range
        Dim dCol As Integer
        Dim nTotal

    dCol = scor.Interior.ColorIndex 'corde destino
    For Each mCelula In somaintervalo

    If mCelula.Interior.ColorIndex = dCol Then
    nTotal = WorksheetFunction.Sum(mCelula) + nTotal
    End If

    Next mCelula
    SomaCor = nTotal

End Function

Será que me podem ajudar????