Using VBA Copy font color from one sheet to another

[JoyMaree]

I have 2 sheets in my file. I want to copy the font color in Sheet (MonNTM) to Sheet (Mon).
I have tried this code but nothing happens.

Sub setColorCity()
Worksheets("Mon").Range("b12:aa19").Font.Color = Worksheets("MonNTM").Range("b12:aa19").Font.Color
End Sub

I would appreciate any suggestions.
Tks.

 

[footoo]

Sub setColorCity()
Dim cel As Range
For Each cel In Worksheets("MonNTM").Range("b12:aa19")
    Worksheets("Mon").Range(cel.Address).Font.Color = cel.Font.Color
Next
End Sub

 

[JoyMaree]

That work perfectly!! Thanks so much.