Excel - Averiguar color de celda

Hola,
mi problema es el siguiente: tengo una hoja en un libro Excel que contiene datos y celdas con colores (color de fondo). Desea averiguar desde un módulo VBA cual es el color que tiene una cierta celdo
ej. la celda C1 tiene el color verde. yo deseo que desde una funcion VBA me ponga el color del fondo de esta celda en la celda J1.
Gracias por su pronta respuesta.
Un saludo
José

No olvides que el nombre del color, lo debes obtener TU creando alguna tabla que los relacione con el numero. Un ejemplo bastante simple de funcion:

Function Colorfondo(Rng As Range) As Long

Dim Valor As Long

Application.Volatile True

Let Valor = Rng.Interior.ColorIndex
Let Colorfondo = Valor

End Function

Abraham

Hola Abraham,
gracias por tu respuesta. Me ha sido útil.
Un saludo
José

Hola,
me surge el problema siguiente:
con lo indicado puedo obtener el color de la celda pero esto no funciona si la celda tiene un color condicional. En este caso siempre me da el valor del color blanco.
Tendrias alguna otra idea.
Un saludo.
José

en el caso del formato condicional el color está sujeto a cada condición establecida

ej: obtiene el Color de la i-ésima condición establecida

color = Rng.FormatConditions(i).Interior.ColorIndex

para tu caso sería conveniente aplicar las mismas condiciones en el código VBA
que las que aplicás en el formato condicional

ej:
If Rng.Value = 1 Then
Color = 2
Else
Color = 4
End If

Saludos, desde Baires, JuanC