title: Using Find in Word from a List in Excel VBA
body: <p>I am working on an automated peer review macro that would check for certain words and highlight them in a Microsoft Word document. However, I am looking to substitute the <code>WordList = Split(" is , are ,", ",")</code> with a list I created in excel. This would be easier for me to add new words instead of manually typing the words I want highlighted in the code.</p>
  
  <p>For example: A1 has the word " is ", so I am hoping it would be something like <code>Wordlist = Split("A1, A2")</code> </p>
  
  <p>or something like <code>Exlist = Range("A1:A2").value</code> so <code>WordList = Split(ExList)</code></p>
  
  <p>Is something like that possible? Thank you for your help.</p>
  
  <pre><code>  Sub PeerReview()
  
    Dim r As Range
    Dim WordList() As String
    Dim a As Long
  
    Dim Doc As Document
    Dim Response As Integer
  
    'This code will search through all of the open word documents and ask you which ones you would like to peer review.
     For Each Doc In Documents
        'MsgBox Doc
        Response = MsgBox(prompt:="Do you want to peer review " &amp; Doc &amp; "?", Buttons:=vbYesNo)
        If Response = vbNo Then GoTo ShortCut
  
        'This code will highlight words that do not belong in the paragraph
        WordList = Split(" is , are ,", ",") 'List of words to check for when it is peer-reviewing
        Options.DefaultHighlightColorIndex = wdPink *'Highlight when found*
        For a = 0 To UBound(WordList())
            Set r = ActiveDocument.Range
            With r.Find
              .Text = WordList(a)
              .Replacement.Highlight = wdYellow
              .Execute Replace:=wdReplaceAll
            End With
        Next 'next word
  
  ShortCut:
      Next
  
  End Sub
  </code></pre>