'Выбрать файлы XLS (XLT, XLA) в каталоге и подкаталогах
'С исользованием FileSystemObject и RegExp - регулярных выражений
Private Sub CommandButton6_Click()
  Columns( 4 ).ClearContents
  GetFileListFSO ActiveWorkbook.Path, "prof.*\.xl(s|t|a)$"
End Sub
'FileSystemObject - БИБЛИОТЕКА  Microsoft Scripting Runtime
'RegExp - БИБЛИОТЕКА Microsoft VBScript Regular Expressions
Sub GetFileListFSO(ParentFolder As String, FileMask As String)
    Dim fso As New FileSystemObject
    Dim re As New RegExp
    Dim fold1 As Folder, fold2 As Folder
    Dim iFile As File
 
    Application.StatusBar = ParentFolder
    Set fold1 = fso.GetFolder(ParentFolder)
    
    For Each fold2 In fold1.SubFolders
        GetFileListFSO fold2.Path & "\", FileMask
    Next
    re.Pattern = FileMask
    re.IgnoreCase = True
    
    For Each iFile In fold1.Files
        If re.test(iFile.Name) Then
            ActiveSheet.Range("D" & Rows.Count).End(xlUp).Offset( 1 ) = iFile.Name
        End If
    Next
    Application.StatusBar = False
End Sub