Private Sub Worksheet_Calculate()
Range("F9").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
For Each c In Selection
c.Characters(Start:=5, Length:=1).Font.ColorIndex = 3
c.Characters(Start:=12, Length:=2).Font.ColorIndex = 3
Next
End Sub