Thanks Norman,
that's perfect.

Max



"Norman Jones" wrote in message
...
Hi Max,

How can I copy the font color (and only the font color) from A1 to B1?

Try:

'=============
Public Sub Tester()
With ActiveSheet.Range("A1")
.Offset(0, 1).Font.ColorIndex = .Font.ColorIndex
End With
End Sub
'<<=============


---
Regards,
Norman