Public Sub Что_то_делать()
     Dim FileName As String, pos As Long
     FileName = Получить_Путь_И_Имя_Файла
     pos = InStrRev(FileName, "\")
     If LCase$(Mid$(FileName, pos + 1)) Like "sm???.xlsm" Then
         MsgBox "Если так, то открываем"
     Else
         MsgBox "Если так, то сообщаем о неподходящем имени файла"
     End If
End Sub

MyPath = "C:\Мои\Работа\Прочее\ЕЛС\Для_PDF\*бух*.xls*"

Sub List_files()
      Application.ScreenUpdating = 0
      With ThisWorkbook
         
        ' MyPath = Range("c1").Value
         MyPath = "C:\Users\Alex\Desktop\111\*.xls*"
          myName = Dir(MyPath, vbDirectory)
          i = 6
          Do While myName <> ""
              If myName <> "." And myName <> ".." And myName <> ThisWorkbook.Name Then
                  .Sheets("stat").Cells(i, 1) = myName

  .Sheets("stat").Cells(i, 2) = wb.Sheets("app").Range("b4")

  Set wb = Workbooks.Open(Filename:=MyPath & myName)

Sub List_files()
     Application.ScreenUpdating = 0
     With ThisWorkbook
         .Sheets(1).Range("A2:B" & Cells(Cells.Rows.Count, 1).Row).ClearContents
         MyPath = "C:\Мои\Стереть\"
         Mask = "*_1.xls*"
         myName = Dir(MyPath & Mask, vbDirectory)
         i = 1
         Do While myName <> ""
             If myName <> "." And myName <> ".." And myName <> ThisWorkbook.Name Then
                 .Sheets(1).Cells(i, 1) = myName
                 Set wb = Workbooks.Open(Filename:=MyPath & myName)

  myname = dir(MyPath & Mask, vbDirectory)

Set myname = FilenamesCollection(MyPath , Mask, 999)

Public Sub test()
      Dim pShell As Object, pFolder As Object
      'Получить объект оболочки ОС
      Set pShell = CreateObject("Shell.Application")
      'получить объект начальной папки сканирования
      Set pFolder = pShell.Namespace("c:\test")
      'запуск вывода путей и имён файлов по маске
      PrintAllFiles pFolder, "*.xlsx;*.xls"
End Sub

Private Sub PrintAllFiles(ByVal inFolder As Object, ByVal FileMask As String)
      Dim pItem As Object, pItems As Object
      'получить все объекты папки
      Set pItems = inFolder.Items
      'выбрать только файлы по заданной маске
      pItems.Filter &H40, FileMask
      'вывести полный путь и имя файла
      For Each pItem In pItems
          Debug.Print pItem.Path
      Next
      'получить все объекты папки
      Set pItems = inFolder.Items
      'получить только подпапки
      pItems.Filter &H20, "*.*"
      'для каждой подпапки вызвать PrintAllFiles
      For Each pItem In pItems
          PrintAllFiles pItem.GetFolder, FileMask
      Next
End Sub