title: Excel VBA won't work on cells with leading zeros
body: <p>My task is to take a specific subset of serial numbers, write a replacement, and run a find &amp; replace on larger set of serial numbers. What I have so far is:</p>
  
  <pre><code>Sub multiFindandReplace()
    Dim myList As Range, myRange As Range, cel As Range
    Set myList = Sheets("Replacement Data").Range("B2:C4246")     
    'two column range with find/replace pairs 
    Set myRange = Sheets("Raw Data").Range("B2:B20000") 
    'range to be searched and replace 
    For Each cel In myList.Columns(1).Cells
      myRange.Replace What:=cel.Value, Replacement:=cel.Offset(0, 1).Value, LookAt:=xlWhole 
    Next cel
  End Sub
  </code></pre>
  
  <p>The code only works on entries with no leading zeroes. I need to keep the leading zeroes, but the problem is that the serial numbers in the master data list do not all begin with zeros, so they are not all being replaced, and are of different lengths. </p>
  
  <p>I've attached a snippet of sample data below:</p>
  
  <pre><code>Part #  Full Part #
  4184    004184
  4444    004444
  100001  00100001
  100002  00100002
  100003  00100003
  100004  00100004
  100005  00100005
  100006  00100006
  100007  00100007
  100008  00100008
  </code></pre>
  
  <p>This find/replace list is 2000 rows. I need to search a list of 20,000 items and replace these 2000 rows.</p>