Excel 2002

Hello all,

If I have in A1 red background color.
What should i write down in B1 inroder to return the color value of A1?
Is it a function or vba code?

Thanks
Amir

Hi,

Range("b1").Interior.ColorIndex = Range("a1").Interior.ColorIndex ' Set colour

Range("b1= Range("a1").Interior.ColorIndex ' Value of colour index

"אמיר" wrote:

> Hello all,
>
> If I have in A1 red background color.
> What should i write down in B1 inroder to return the color value of A1?
> Is it a function or vba code?
>
> Thanks
> Amir

Function ColorIndex(rng As Range)
If rng.Cells.Count = 1 Then
ColorIndex = rng.Interior.ColorIndex
End If
End Function


use like

=ColorIndex(A1)

--
HTH

Bob Phillips

"????" <@discussions.microsoft.com> wrote in message
news:[email protected]...
> Hello all,
>
> If I have in A1 red background color.
> What should i write down in B1 inroder to return the color value of A1?
> Is it a function or vba code?
>
> Thanks
> Amir