'Этот код работает в Винде 2000 и в Висте (проблемы с кодировкой кирилицы первой папки на сетевом ресурсе
Private Sub Запуск_Выбора_катологов_подкаталогов()
Dim fso As New FileSystemObject
  ВыбратьКаталогПодкаталогиFSO fso.GetFolder("C:\temp") ' Каталог где обрабатываем ищем файлы
End Sub

'FileSystemObject - БИБЛИОТЕКА  Microsoft Scripting Runtime
Sub ВыбратьКаталогПодкаталогиFSO(Папка As Folder)
Dim fso As New FileSystemObject, fold As Folder, iFile As File
Set ifold = fso.GetFolder(Папка)

 For Each fold In Папка.SubFolders
   ВыбратьКаталогПодкаталогиFSO fold        'лезем в рекурсию
 Next
   НазваниеФайлаКоторыйИщем = UCase(Left(ThisWorkbook.Worksheets("Лист1").Range("B1"),  5 ))

 For Each iFile In Папка.Files
 ФайлВпапке = UCase(Left(iFile.Name,  5 ))
   If ФайлВпапке = НазваниеФайлаКоторыйИщем Then ' Проверка
             

    Workbooks.Open (iFile), UpdateLinks:= 3 , WriteResPassword:="" ', IgnoreReadOnlyRecommended:=True, ReadOnly:=False  ',WriteResPassword:="1972"  ',1 - НЕ ОБНОВЛЯЯ , IgnoreReadOnlyRecommended:=True
' Сюда наш код для обработки файлов
Calculate

' Закрываем файлы
ActiveWindow.Close SaveChanges:=True
   
   End If
 Next

End Sub