Sub Highlight()
Dim oRng As Range
Dim A() As String 'Introduce variable for Words
Dim lngIndex As Long
  A = Split("TEST,dog,cat,boy", ",")
  For lngIndex = 0 To UBound(A)
    Set oRng = ActiveDocument.Content 'Set Range to search
    Options.DefaultHighlightColorIndex = wdYellow
    With oRng.Find
      .Text = A(lngIndex)
      '.Replacement.Text = "TEST"
      .Replacement.Highlight = True 'Highlight
      .MatchWholeWord = True
      .MatchCase = True
      .ClearFormatting
      .MatchWholeWord = True
      .MatchCase = True
      .Wrap = wdFindStop
      .MatchWildcards = False
      Do While .Execute(Replace:=wdReplaceOne)
        Options.DefaultHighlightColorIndex = wdTeal
        oRng.Collapse wdCollapseEnd
      Loop
    End With
    Options.DefaultHighlightColorIndex = wdYellow
  Next lngIndex
  Application.ScreenUpdating = True
lbl_Exit:
  Exit Sub
End Sub