Как открыть файл, опираясь только на его расширение? - VBA

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

Здравствуйте! Спасибо, что помогаете! Желаю всем счастья! Очень буду благодарен, если подскажете как открывать файл, независимо от его названия (MindMap (Excel).xml или MM (Ex) (проба).xml и т.д.), опираясь только на расширение .xml, с помощью макроса в текущем открытом файле Excel. Он находится в той же папке, что и вспомогательный файл, который нужно периодически открывать, и является единственным на ноутбуке с таким расширением. После открытия вспомогательного файла нужно скопировать лист (он там единственный), закрыть файл, вставить скопированный лист вместо 2-го листа открытого файла. Уже обращался на подобную тему в другой форум: http://www.............. index.php?topic=5486.0. Там мне практически помогли. Осталось скомбинировать 2 макроса. Скидываю ссылку из OneDrive на папку с 2 файлами (https://1drv.ms/f/s!AiLfFp_9DgAOgtdLjFXBfowbZLa8Kg) как пример (только вместо .xml будет .xlsx), но суть одна: возможность вместо MindMap (Excel) использовать разные названия. Благодарю всех, прочитавших тему!

Решение задачи: «Как открыть файл, опираясь только на его расширение?»

textual
                            Листинг программы 
                        

                            Dim p$, f$, ws As Worksheet
 
For Each ws In ThisWorkbook.Worksheets
    If LCase(ws.Name) = "freemind sheet" Then
       Application.DisplayAlerts = False
       ws.Delete
       Application.DisplayAlerts = True
       Exit For
    End If
Next
 
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.xlsx")
 
If f = "" Then Exit Sub
 
With Workbooks.Open(p & f, 0)
     'Здесь можете работать с открытой книгой
End With
                        