Atenção. Apenas exemplo e supondo que as palavras "Eleição" e "Treinamento" constem no Texto e no padrão do exemplo.
E supondo também que o Texto esteja em A1:

Sub Macro1()

i = Application.WorksheetFunction.Search("Eleição", Range("A1"), 1)
j = Application.WorksheetFunction.Search("Treinamento", Range("A1"), 1)
t = j - i - 8

Range("A1").Characters(Start:=i + 8, Length:=t).Font.Color = -16776961

End Sub

E se estas palavras não estão nesta ordem, isso também pode acontecer.
segue o exemplo:

Jaraguá_do_Sul Treinamento Blumenau Treinamento RF Treinamento WEG_Tintas Treinamento Mauá Treinamento

e quero que se destaque em vermelho Jaraguá_do_Sul, Blumenau,RF, WEG_Tintas, Mauá.

lembrando que isso é o resultado de uma formula e que esta ordem pode mudar.