Dominic,

assuming that you are not using conditional formatting colouring, take a
look at this page

http://www.xldynamic.com/source/xld.ColourCounter.html
Processing Coloured Cells

It's quite a bit more complicated thatn your simple function, but it caters
foir the defaults.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Voskre" wrote in message
...
Hi,
I'm using Excell 2000.

In cell B1 I want to insert the color index of cell A1 and I'm using the
following function copied from Internet:

Function showColorIndex(targetcell)
showColorIndex = targetcell.Interior.ColorIndex
End Function

In B1 I get the number -4142 and it can not be.
Even for the next rows (i.e. B2 for A2 color, B3 for A3 color etc., all
with
differente colors) I always get -4142.

What's wrong with that function as all AddIns are duly installed?

Thanks for any help.

Dominic.