Macro to highlight a list of words

[bakerkr]

I came across a macro that will highlight a certain word, in the below example I used the word to.

I'd like to use a list of words, which will allow me to add or delete words as necessary. Is this possible? VBA is okay instead of a macro.



Thanks
Kevin

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find
  .Text = "to"
  .Replacement.Text = "to"
  .Forward = True
  .Wrap = wdFindContinue
  .Format = True
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Options.DefaultHighlightColorIndex = wdYellow
Selection.Range.HighlightColorIndex = wdYellow