Sub ki102()
   Sheets("Title").Select
   su = Len("FONT")
'
    ssa = 0: ssb = 0
    dat = Cells(13, 3)
    Do
        ssa = InStr(1, dat, "FONT", 1)
        If ssa > 0 Then
            ssb = ssb + ssa
            dat = Mid(dat, ssa + 1)
            Cells(13, 3).Select
            ActiveCell.Characters(Start:=ssb, Length:=su) _
            .Font.ColorIndex = 3
        Else
            Exit Do
        End If
    Loop Until ssa = 0
End Sub

Sub ki102a()
    Range("C13").Select
    Selection.Font.ColorIndex = 0
End Sub