Functions cannot change formatting of a cell so it must be a macro.

Sub colorit()
ActiveCell.Interior.ColorIndex = _
Range("A1").Interior.ColorIndex
End Sub

Or use the Format PaintBrush


Gord Dibben MS Excel MVP


On Wed, 27 Aug 2008 07:34:01 -0700, assaf1978
wrote:

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

Thanks,
Assaf.