|As AWTL said, we probably need more information. |
Just as a shot in the dark, you might try the following code.
Assuming the cell that is changed is in Rows 6-128 and the cell has a fill color, the font color will be set to match the fill color.
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Row
Case 6 To 128
Target.Font.ColorIndex = Target.Interior.ColorIndex
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.