Hi Gord,

before writing to the NG, I did as you suggested: now I did it once again
but it does not work.
sorry....
I can send my file if you like.

Thanks in any case.

Dominic



"Gord Dibben" <gorddibbATshawDOTca ha scritto nel messaggio
...
Voskre

In B1 enter =showColorIndex(A1) and drag/copy down column B.

Works for me if column B is formatted to general and Auto-calcuation is
set.

-4142 is the default cell color "no fill"

Gord Dibben Excel MVP

On Sat, 24 Jul 2004 15:19:06 GMT, "Voskre"
wrote:

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.