Try

Sub CopyColor()
Range("B2").Select
With Selection.Interior
.Pattern = Range("A2").Interior.Pattern
.Color = Range("A2").Interior.Color
End With
End Sub

"assaf1978" wrote:

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

Thanks,
Assaf.