Get cell values from all workbooks in folder

Sub t()
Range("B" & rows.count).end(xlup)).Offset(1).Value = GetValue("c:\", "test.xls", "Sheetx", "A1")
End Sub

'=GetValue("c:\files", "budget.xls", "Sheet1", "A1")
Private Function GetValue(path, file, sheet, ref)
'    path = "d:\files"
'    file = "budget.xls"
'    sheet = "Sheet1"
'    ref = "A1:R30"

    Dim arg As String
     
    If Right(path, 1) <> "\" Then path = path & "\"
     
    If Dir(path & file) = "" Then
        GetValue = "file not found"
        Exit Function
    End If
     
    arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
    Range(ref).Range("a1").Address(, , xlR1C1)
     
    GetValue = ExecuteExcel4Macro(arg)
End Function

Sub GetMyData()
  Dim fs As New cFileSearch
  Dim NextRow As Long, Filestoprocess As Long, i As Long
  Dim theFile As String, thePath As String, val
  Dim skipThisWorkbook As Boolean
  'On Error GoTo EndSpeed
  SpeedOn
  skipThisWorkbook = True
  NextRow = Range("A" & Rows.Count).End(xlUp).Offset(1).Row
  thePath = ThisWorkbook.path
  With fs 'like Application.FileSearch
    .LookIn = thePath
    .SearchSubFolders = True
    .FileName = "*.xls" '* for all files
    .Execute
    Filestoprocess = .FoundFiles.Count
    If Filestoprocess = 0 Then Exit Sub
    For i = 1 To Filestoprocess
      theFile = FilePart(.FoundFiles(i))
      Cells(NextRow, "A").value = theFile
      
      If ThisWorkbook.Name = theFile And skipThisWorkbook = True Then GoTo Nexti

      val = GetValue(thePath, theFile, "Sheet1", "C6")
      If val <> 0 Then Cells(NextRow, "B").value = val
      
      val = GetValue(thePath, theFile, "Sheet1", "E6")
      If val <> 0 Then Cells(NextRow, "C").value = val

      val = GetValue(thePath, theFile, "Sheet1", "E9")
      If val <> 0 Then Cells(NextRow, "D").value = val

      NextRow = NextRow + 1
Nexti:
    Next i
  End With
  Range("A1:D1").EntireColumn.AutoFit
EndSpeed:
  SpeedOff
End Sub

 val = GetValue(thePath, theFile, "Reporte de Falla", "C6")
'      If val <> 0 Then Cells(NextRow, "B").value = val