title: How to write a VB script to find multiple keywords within all cells and highlight each keyword?
body: <p>I'm currently having a list of keywords (e.g. CFO, CTO, interim manager, etc.) and I want to have a macro assigned to a button that can search all cells in Column E of Sheet 1 which contain these keywords then give back the result as well as highlight the keyword in the cell. </p>
  
  <ul>
  <li>Each keyword is in a separate cell in Column A of Sheet 2. </li>
  <li>If there is one keyword in the list, it will search for one but if there are more, it will search for combination. </li>
  </ul>
  
  <p>Here is the screenshot to illustrate what I've describe above</p>
  
  <p><a href="https://i.stack.imgur.com/VCuA1.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/VCuA1.png" alt="enter image description here"></a></p>
  
  <p>I have found something over the Internet with suggestion to use AutoFilter but I can only use it to perform a search for one keyword. This is what I've tried:</p>
  
  <pre><code>Sub EmailFilter()
  
  Application.ScreenUpdating = False
  
  With Worksheets("Sheet1").Columns("E:E")
          .AutoFilter Field:=1, Criteria1:= _
      "=*" &amp; Worksheets("Sheet2").Range("A2:A10") &amp; "*", Operator:=xlAnd
      End With
  
  Application.ScreenUpdating = True
  
  End Sub
  </code></pre>
  
  <p>Thanks in advance. </p>