Boa tarde,

estou com um problema com esta macro:

Function SOMACOR(Referência As Range, Matriz As Range, Fonte As Boolean)
 Application.Volatile
 
 Dim rCell As Range
 Dim rCor As Long
 Dim rResult As Variant
 
 If Fonte = False Then
 rCor = Referência.Interior.ColorIndex
 For Each rCell In Matriz
 If rCell.Interior.ColorIndex = rCor Then
 rResult = WorksheetFunction.Sum(rCell, rResult)
 End If
 Next rCell
 Else
 rCor = Referência.Font.ColorIndex
 For Each rCell In Matriz
 If rCell.Font.ColorIndex = rCor Then
 rResult = WorksheetFunction.Sum(rCell, rResult)
 End If
 Next rCell
 End If
 
 SOMACOR = rResult
End Function

não sei pk...quando copio e colo células (mesmo noutros ficheiros) o excell começa a piscar e tenho que clicar numa célula para ele parar...e vou ver o ficheiro onde coloquei esta macro e ele está meio desconfigurado.
vou colocar aqui o ficheiro para ver se me podem ajudar.
será que esta macro poderá estar a interferir com os restantes ficheiros?...apenas quero que ela funcione neste ficheiro.

Agradeço ajuda..

Obrigado