Цветной текст в квадратных скобках не расскрашивается при изменении ячейки

Цель - что бы слово в квадратных скобках расскаршиваль в красный цвет. Что не так в коде? Сама функция не отрабатывает на изменения в странице или ошибка в коде? Никаких ошибок нет, в тоже время ничего не раскрашивается, после того как набираю слово в скобках

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Text As String
    Dim Index1 As Long
    Dim Index2 As Long
    Text = Target.Text
    Index2 = 1
    Do
        Index1 = InStr(Index2, Text, "[")
        If Index1 = 0 Then Exit Do
        Index2 = InStr(Index1, Text, "]")
        If Index2 = 0 Then Exit Do
        Target.Characters(Index1, Index2 - Index1 + 1).Font.Color = &HFF
    Loop
End Sub