Sub Color_Simvol() ' https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=68254&MID=s
    Dim colColors As New Collection
    Dim strChar As String
    Dim i As Long
    Dim Cell As Range
    'Key -юникод-код символа
    'Item -цвет шрифта
    'T
    colColors.Add Item:=65280, Key:="84"
    'A
    colColors.Add Item:=255, Key:="65"
    'C
    colColors.Add Item:=16711680, Key:="67"
    'G
    colColors.Add Item:=52479, Key:="71"
    Application.ScreenUpdating = False
    For Each Cell In Selection
        On Error Resume Next
        For i = 1 To Cell.Characters.Count
            'Переменная strChar получает код символа i в виде строки
            'и переменная strChar становится ключом для коллекции colColors
            strChar = CStr(AscW(Cell.Characters(i, 1).Text))
            'если данный ключ присутствует в коллекции, то идет окраска текущего символа
            'в цвет соответствующий ключу, к примеру Item:=255, Key:="65", цвет будет *.Color = 255
            Cell.Characters(i, 1).Font.Color = colColors.Item(strChar)
            Cell.Characters(i, 1).Font.Bold = True
        Next i
    Next Cell
    On Error GoTo 0
End Sub