title: VBA: type mismatch error on finding elements from another list
body: <p>i am working on the exercise below but i need some help. It is giving runtime error 13. I am a beginner, can you please help me solve it? Of course other ways of solving the problem are more than welcomed. There are 2 lists (1: Sheet2.Range("E5:E1324") and 2:SearchRange = Sheet1.Range("F2:F4178"))
  , of long text format and not exact match, list 1 contains a phrase of the information in list2. I need to know how many times data in list 2 is mentioned in list 1 (as i know there are times it goes up to 7)
  Thank you a lot,
  Ana</p>
  
  <pre><code>Sub countvalues()
  ' count how many times data in Description Range is listed in SearchRange
  
  Dim i As Integer 'for looping in Description
  Dim j As Integer   'for looping in SearchRange
  Dim Counter As Integer
  Dim FoundData As Range
  Dim Description As Range
  Dim SearchRange As Range
  
  Set Description = Sheet2.Range("E5:E1324")
  Set SearchRange = Sheet1.Range("F2:F4178")
  
  Application.ScreenUpdating = False
  Counter = 0
  
  For i = 5 To 1324   'trying with a narrower range for testing purpose
  
          For j = 2 To 4178
              Set FoundData = SearchRange.Find(Sheet2.Range("E" &amp; i))
              'On Error Resume Next
              Counter = FoundData.Count + 1
  
          Next j
  
      Sheet2.Range("F" &amp; i) = Counter
  
  Next i
  
  Application.ScreenUpdating = True
  
  End Sub
  </code></pre>