Count unique colors font and/or unique color interior (not cells content, but colors)

Hi,

Second post only (first left unanswered), so please, be patient.

I'm working on a macro where different font and color filling is used. For each color, meaning of datas is different and actions done by macro is too. I did some some

if color=[color] then (This part work well)
Do something
Colorcount=colorcount+1
End

Now i want to do something like

c=worksheet.font.color.count (this part dont work)

if c<> colorcount then (this part work)
Msgbox " Some untreated datas may be delete. Continue anyway?"
end if


Thanks you