title: VLOOKUP the same item with multiple results
body: <p>Every day I receive several.xls containing information about a particular item, for example, a car.</p>
  <p>I developed this macro in which I don't need to open all the files because the macro imports all the data I need.</p>
  <pre class="lang-vb prettyprint-override"><code>For Each File In Folder.Files
      DoEvents
      Set xlBook = xlApp.Workbooks.Open(File, False)
      Set xlSheet = xlBook.Sheets(1)
  
      On Error Resume Next
      
      Do
          ws.Cells(i, 1) = FindCarModel(xlSheet) 'MODEL:
      Loop While xlSheet.Cells(j, rngQTE.Column) &lt;&gt; &quot;&quot;
          
      ThisWorkbook.Worksheets(&quot;T_G&quot;).Cells(n, 1) = FindCarModel(xlSheet)
  
      n = n + 1
      xlBook.Close False
      Set xlBook = Nothing
  Next
  
  End Sub
  
  Private Function FindCarModel(ws As Worksheet) As String
  Dim EncontraString As String
  Dim Intervalo As Range
  Dim i As Integer
  
  EncontraString = &quot;MODEL:&quot;
  With ws.Range(&quot;A:IV&quot;)
      Set Intervalo = .Find(What:=EncontraString, _
                                 After:=.Cells(1), _
                                 LookIn:=xlValues, _
                                 LookAt:=xlPart, _
                                 SearchOrder:=xlByRows, _
                                 SearchDirection:=xlPrevious, _
                                 MatchCase:=False)
  
      If Not Intervalo Is Nothing Then
          i = Intervalo.Column + 1
          Do While ws.Cells(Intervalo.Row, i) = &quot;&quot;
              i = i + 1
          Loop
          FindCarModel = ws.Cells(Intervalo.Row, i)
      End If
  End With
  
  End Function
  </code></pre>
  <p>The macro searches for the word &quot;model&quot; and pastes the value of the first cell to the right.</p>
  <p>I am no longer receiving files with a single &quot;car model&quot;.</p>
  <p>How can I return all the car models inside the xls and not just the first one found.</p>