Sub FindFiles()
With Application.fileSearch
.NewSearch
.LookIn = "C:\My"
.SearchSubFolders = True
.TextOrProperty = "textInFile"
.MatchTextExactly = True
.FileName = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
Debug.Print .FoundFiles(i)
Next i
End With
End Sub