Copiar Formato de color

Para copiar el valor, lo mejor es que lo hagas por fórmula. Para el color...
¿Por código? Podrías utilizar el evento Change de la hoja Hoja1:

A.
Si la celda A1 cambia manualmente, podrías usar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Sheets("Hoja2").Range("C10").Interior.ColorIndex =
Sheets("Hoja1").Range("A1").Interior.ColorIndex
End If
End Sub

B.
Si la celda A1 cambia como resultado de una fórmula, podrías usar:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Hoja2").Range("C10").Interior.ColorIndex =
Sheets("Hoja1").Range("A1").Interior.ColorIndex
End Sub

El inconveniente que vas a encontrar, es que un cambio de color a una celda
no se considera como cambio a la hoja, y no dispara el evento change. Así
que el color de la celda de la Hoja2 no se actualizará hasta que hagas un
cambio válido en la Hoja1.

Comentas...



"" escribió:

Otra vez me repito pero necesito una solucion si la hay, espero
explicarme esta vez

En la Hoja1 tengo en la celda A1 un numero, o un texto, en rojo, y
quiero que se copie automáticamente en la Hoja2 en la celda C10, pero
con el mismo formato de color o tipo de letra.

Muchas gracias