title: VBA Returns Error after Range.Find finds nothing
body: <p>I have two worksheets in Excel, New Sheet and Old Sheet.  I am trying to search in Column A of Old Sheet if the column contains each of the entries of Column A of New Sheet.  I am using the following VBA code to search, but it returns an error on the second search (the non column header search).  I have no idea what I'm doing wrong - any help is appreciated.  Here is my code:</p>
  
  <pre><code>Sub Sample()
  
  Dim lastRow As Integer
  Dim i As Integer
  Dim rng As Range
  Dim searchrng As Range
  Dim searchval As String
  
  lastRow = Sheets("New One").Range("A65000").End(xlUp).Row
  
  Sheets("Old One").Activate
  Set searchrng = Sheets("Old One").Range("A1:A10000")
  
  
  For i = 1 To lastRow
  
      Sheets("New One").Activate
      searchval = Sheets("New One").Cells(i, 1).Value
  
      Set rng = searchrng.Find(searchval)
  
      If Not rng Is Nothing Then
          MsgBox "Found " &amp; searchval &amp; " in " &amp; rng.Address
      Else
          Sheets("New One").Activate
          Sheets("New One").Cells(i, 1).EntireRow.Interior.Color = vbRed
      End If
  
  Next i
  
  End Sub
  </code></pre>
  
  <p>The error is always Run-time error '1004' - Method 'Find' of object 'Range' failed.</p>