title: How to find and highlight all occurrences of multiple strings within the ActiveSheet?
body: <p>I've found a solution already but the code would be too long. Then i decided to search a way of inserting all the words I want to find and highlight into a single Find Method. I came across some ideas of using Arrays to do so and used these 3 codes to write mine (<a href="http://www.thespreadsheetguru.com/the-code-vault/2014/10/30/highlight-all-cells-containing-a-specific-value" rel="nofollow noreferrer">this</a>, <a href="http://www.mrexcel.com/forum/excel-questions/610926-find-multiple-values-visual-basic-applications.html" rel="nofollow noreferrer">this</a>, and <a href="https://stackoverflow.com/questions/26595189/vba-find-multiple-strings-in-column-then-delete-rows">this</a>) but I am a new user of VBA so my final code have a problem, it highlights just the last String of the Array. I think the problem is logic but I don't know the basics of VBA so I have no idea how to correct it.</p>
  
  <p>My actual code:</p>
  
  <pre><code>Sub Sample()
  Dim fnd As String
  Dim MyAr
  Dim i As Long
  Dim rng As Range, FoundCell As Range, LastCell As Range, myRange As Range
  
  Set myRange = ActiveSheet.UsedRange
  Set LastCell = myRange.Cells(myRange.Cells.Count)
  
  fnd = "hugo/vw/osnabrück"
  
  MyAr = Split(fnd, "/")
  
      For i = LBound(MyAr) To UBound(MyAr)
  
          Set FoundCell = myRange.Find(what:=MyAr(i), after:=LastCell)
  
          If Not FoundCell Is Nothing Then
              FirstFound = FoundCell.Address
          End If
  Set rng = FoundCell
              Do Until FoundCell Is Nothing
                  Set FoundCell = myRange.FindNext(after:=FoundCell)
                      Set rng = Union(rng, FoundCell)
                  If FoundCell.Address = FirstFound Then Exit Do
              Loop
      Next i
  
  If Not rng Is Nothing Then
      rng.EntireRow.Interior.ColorIndex = 3
  End If
  End Sub
  </code></pre>
  
  <p>For example with this code I can find and highlight all the "Osnabrück" but it doesn't highlight any Hugo or VW.</p>