title: Runtime error '13': Type mismatch while using FIND function
body: <p>I am using the below code snippet to retrieve a value from my "Data Summary" sheet and find that data in "QG Summary" sheet, if there exists a match I retrieve the data stored in the first column of "QG Summary" sheet for the row identified by my aCell variable.</p>
  
  <pre><code>Dim str1 As String
  Dim aCell As Range
  
  str1 = Worksheets("Data Summary").Cells(aCell.Row, 3).Value
  
  If (str1 &lt;&gt; "") Then
  
      Set aCell = Worksheets("QG Summary").Columns(3).Find(What:=str1 _
              , LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
              SearchDirection:=xlNext, MatchCase:=False)
  
      If Not aCell Is Nothing Then
          str1 = Worksheets("QG Summary").Cells(aCell.Row, 1).Value
      End If
  
  End If
  </code></pre>
  
  <p>This code works fine for all case except for cases where my variable str1 has a big value (326 characters). When my str1 variable comes across a big value, this code breaks with a Runtime error '13': Type mismatch. Why?</p>