Reconocer colores en excel.

Hola, 
He estado buscando por ahi informacion relacionada con el reconocimiento de colores de excel. Para celdas que cumplan una determinada condicion, pero aun no puedo armar una macro decente que me haga lo que deseo.
Quiero que si una celda es de cierto color el excel ejecute otra orden como reemplazar los colores de esas mismas celdas.
Lo que he adelantado.
Sub Macro1()
'
' Macro1 color
'
If Sheets("Hoja1").Cells(1, 1).Font.ColorIndex = 1 Then
'(1 = negro)
Sheets("Hoja1").Cells(2, 2).Font.ColorIndex = 5
End If
'
End Sub
la macro no ejecuta accion alguna.
Si alguien me pudiera ayudar.

Primero que todo gracias por responder.
Efectivamente se cumple ahi me ejecuta la macro, pero me di cuenta que de esta forma me esta reconociendo el color del texto que almacena la celda, lo que yo busco es que me reconozca el color de fondo (que en mi real ejercicio es 35 verde claro).
Debe ser otro comando que reconoce el interior?
gracias

La expresión Interior está bien, pero en tu consulta habías mencionado Font y además negro
El color verde es 35 (en lugar de -35)
El nro de trama predeterminado de la celda (blanca, sin color) es -4142 .
Si la tenés con negro podés obtener su nro con el msgbox que dejé de modo provisorio, y luego reemplazar ese nro x en la línea sgte
Sub coloreando()
MsgBox Sheets("Hoja1").Cells(1, 1).Interior.ColorIndex
If Sheets("Hoja1").Cells(1, 1).Interior.ColorIndex = -4142 Then
Sheets("Hoja1").Cells(2, 2).Interior.ColorIndex = 35
End If
End Sub
Sdos
Elsa
http://aplicaexcel.galeon.com/macros.htm