title: find and replace values in database using an array VBA
body: <p>I have a dirty database where the names of each individual are written in different ways and I cannot group them. </p>
  
  <p>I would like to create a macro to find and replace the names in the database using a two column list. </p>
  
  <p>I have found the following code, but I´m having trouble understanding it, so cannot adapt it:  </p>
  
  <pre><code>Dim Sht As Worksheet
  Dim fndList As Integer
  Dim rplcList As Integer
  Dim tbl As ListObject
  Dim myArray As Variant
  Dim Rng As Range
  
  
  'Create variable to point to your table
    Set tbl = Worksheets("How to").ListObjects("Table2")
  
  'Create an Array out of the Table's Data
    Set TempArray = tbl.DataBodyRange
    myArray = Application.Transpose(TempArray)
  
  'Designate Columns for Find/Replace data
    fndList = 1
    rplcList = 2
  
  'Loop through each item in Array lists
    For x = LBound(myArray, 1) To UBound(myArray, 2)
      'Loop through each worksheet in ActiveWorkbook (skip sheet with table in it)
        For Each Rng In Worksheets("xxxxxxxxxx").Activate
          If Rng.Name &lt;&gt; tbl.Parent.Name Then
  
            Rng.Cells.replace What:=myArray(fndList, x), Replacement:=myArray(rplcList, x), _
              LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
              SearchFormat:=False, ReplaceFormat:=False
  
          End If
        Next Rng
  
    Next x
  
  End Sub
  </code></pre>