"Harald Staff" wrote in message ...
"SIGE" skrev i melding
om...
Anyone an idea why my function does not work... it seems to unload...

Public Function SumByCellColor(Cellrange As range, Cellcolor As Single) As
Single
Application.Volatile
n = 0
For Each RangeCell In Cellrange

n and RangeCell are not declared

Next SumByCellColor = n

This can't do any good.
Also, coloring doesn't trig a calculation, you need an F9 or similar to make
a recalculation happen.

HTH. Best wishes Harald

Hi Guys,

Thx for the advises. I surely had my Variables declared.
It works fine... except with "conditional formatting"...
Why is this?