Замена шрифта части ячейки

[bukarenko]

Доброго времени суток,
Возникла следующая проблема: необходимо искать заданный фрагмент текста и выделять его в ячейке определенным цветом.
Проблема с методом Replace в том, что возможно изменить только шрифт всей ячейки. Книга очень большая, поэтому критичен вопрос времени работы макроса.
Заранее благодарен за помощь.

[doober]

Но ядумаю,это очень медленный способ

Sub Color_Font()
   Dim sl As String
   Dim n, m, k As Integer
   sl = Range("A1").Text
   m = Len(sl)
   k = Len("что") 'ищем   что
   
   n = InStr(1, sl , "что")
      With Range("A1")
 .Characters(Start:=1, Length:=n - 1).Font.ColorIndex = 0
      
  .Characters(Start:=n, Length:=3).Font.ColorIndex = 3 'Меняем на красный
       
 .Characters(Start:=n + 1 + k, Length:=m).Font.ColorIndex = 0
        
    End With
 
End Sub

[bukarenko]

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