Поиск файлов при изменяющемся окончании - VBA

Формулировка задачи:

Добрый день! Подскажите пожалуйста. у меня макрос в екселе открывает ексель файлы. они в будущем будут меняться. в названии будет меняться только окончание. как прописать чтобы он на окончание не смотрел? Сейчас вот так делаю:

                    Листинг программы
                
iPath = ActiveWorkbook.Path 
Workbooks.Open Filename:=iPath + "\bdx16\A011_000_45.xls"

потом этот файл будет изменяться на A011_000_47.xls, A011_000_49.xls и тд.

Решение задачи: «Поиск файлов при изменяющемся окончании»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Test2()
    Dim iPath$, iFileName$, iArr As Variant, iCount&
    iArr = Array("A011_000", "Е101_00", "Е002_000", "К_002", "Р_001", "М1001_000")
    iPath = ActiveWorkbook.Path & "\bdx16\"
    
    Application.ScreenUpdating = False
    
    For iCount = 0 To UBound(iArr)
        iFileName = Dir(iPath & iArr(iCount) & "*_.xls")
 
        If iFileName <> "" Then
           With Workbooks.Open(iPath & iFileName, 0)
                .Worksheets("Table 1").[A1:M1500].Copy Workbooks("280.xlsm").Worksheets("List" & iCount + 2).[A1]
                '.Worksheets(1).UsedRange.Copy Workbooks("280.xlsm").Worksheets(iCount + 2).[A1]
                .Close False
           End With
        End If
    Next
    
    Application.ScreenUpdating = True
End Sub