searches the My Documents directory and its subdirectories for all XLS files that contain the text budget. : FileSearch « File Path « VBA / Excel / Access / Word
searches the My Documents directory and its subdirectories for all XLS files that contain the text budget.
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