Помогите открыть файл который содержит определенное слово в названии.

[repo]

Привет. Ни как не могу "победить". Пытался через filesearch и т.д. но что-то не получается.
Лежит на диске С:\ какой-нибудь файл "Фирма по продажам.xls" хочу его открыть по слову фирма (т.е. если в названии содержится такое слово в данном каталоге то чтобы он открылся ну и соответственно и др файлы) Спасибо.

[Pavel55]

Sub Макрос1()
Dim iPath As String
Dim iTempFileName As String
    With Application
        .ScreenUpdating = False
        .Calculation = xlManual
        iPath = "C:\" 'путь к файлам
        iTempFileName = Dir(iPath & "*фирма*.xls") 'узнаём имя первого файла
        Do While iTempFileName <> ""
            'открываем первый файл
            With .Workbooks.Open(Filename:=iPath & iTempFileName, UpdateLinks:=False)
                 '
                 'тут что-то делаем с открытым файлом
                 '
                 .Close saveChanges:=False 'закрываем файла не сохраняя
            End With
            iTempFileName = Dir 'узнаём имя следующего файла
        Loop
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
End Sub

[repo]

Спасибо за оперативность! Буду пробовать.