If you are familiar with VBA (Macros) the following code will copy the color
of F7 to A1 on the active worksheet:

Sub copycolor()

ActiveSheet.Range("A1").Interior.ColorIndex =
ActiveSheet.Range("F7").Interior.ColorIndex
ActiveSheet.Range("A1").Interior.Pattern =
ActiveSheet.Range("F7").Interior.Pattern

End Sub

If you are not familiar with VBA then more information about what you are
trying to do would be necessary.

Tom

"assaf1978" wrote:

Hi,
How can I copy a colour of a cell to another cell, using a function or a
macro?

Thanks,
Assaf.