Script de macro do VBA para localizar / substituir palavras e destaque-as para saber quais palavras foram alteradas no documento do Word

Eu tenho uma macro bacana abaixo que localiza e substitui palavras e as destaca, para que eu saiba quais palavras foram alteradas pelo script. No entanto, tenho que definir primeiro a cor do destaque e, em seguida, executar o script. Gostaria de saber como editar o script para que eu não precise definir a cor do destaque primeiro, basta executar o script e as palavras substituídas serão destacadas.

Obrigado.

Sub Highlight_X_F9()
'
' highlight_X Macro
' Highlight [X]
' "&chr(10)&"F9
'

'


findArray = Array("Blue 1", "Blue 2", "Blue 3")
replArray = Array("Red 1", " Red 2", " Red 3")

For i = 0 To UBound(findArray)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find
.Text = findArray(i)
.Replacement.Text = replArray(i)
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i 

End Sub