'i find this code useful
cdDir = "C:\Documents and Settings\"
'Start FileSearch
With Application.FileSearch
.LookIn = cdDir
.Filename = "*" & ".xls"
.FileType = msoFileTypeExcelWorkbooks
.SearchSubFolders = True
.Execute
If .Execute > 0 Then
'loop through all found files
For IFoundFiles = 1 To .FoundFiles.Count
'set incidental variables
Pos = InStrRev(.FoundFiles(IFoundFiles), "\")
file = Right(.FoundFiles(IFoundFiles), Len(.FoundFiles(IFoundFiles)) - Pos)
path = Left(.FoundFiles(IFoundFiles), Pos)
Application.DisplayAlerts = False
Set wbSource = Workbooks.Open(path & file)
Application.DisplayAlerts = True
For isheet = 1 To Worksheets.Count
wbSource.Activate
sheetName = Sheets(isheet).Name
If InStr(sheetName, "MATIN") > 0 Or InStr(sheetName, "mating") > 0 Then 'ESTIMATING