title: How to search/replace terms (and their formatting)?
body: <p>I'm trying to search for various terms in a workbook and change their formatting to red font, bold (to highlight the terms, essentially).  I found the below script, which works for a single term.  I've been trying to add additional terms with no success.  Any help would be appreciated.  Thanks in advance!  </p>
  
  <pre><code>Sub colorText()
  
  Dim cl As Range
  Dim startPos As Integer
  Dim totalLen As Integer
  Dim searchText As String
  Dim endPos As Integer
  Dim testPos As Integer
  
  ' specify text to search.
   searchText = "Trust"
  
  ' loop trough all cells in selection/range
  For Each cl In Selection
  
    totalLen = Len(searchText)
    startPos = InStr(cl, searchText) 
    testPos = 0
  
    Do While startPos &gt; testPos
      With cl.Characters(startPos, totalLen).Font
        .FontStyle = "Bold"
        .ColorIndex = 3
      End With
  
      endPos = startPos + totalLen
      testPos = testPos + endPos
      startPos = InStr(testPos, cl, searchText, vbTextCompare)
    Loop
  
  Next cl
  
  End Sub
  </code></pre>