Открыть папку макросом

[lovko]

Здравствуйте! Данная команда открывает файл. Как ее переделать, чтобы она открывала только папку "Обновка", в которой находится конечный файл? Большое спасибо!
Application.Workbooks.Open ("C:\Users\User\OneDrive\Обновка\Файл.xlsm")

[NooBasTiK]

Код Выделить Развернуть

Sub Макрос_Папка()
Shell "explorer.exe " & ThisWorkbook.Path & "\Папка с файлами"
End Sub

[lovko]

Спасибо! Подскажите, как сделать так, чтобы при открытии папка выходила на передний план?

[NooBasTiK]

Код Выделить Развернуть

Sub Макрос_Папка()
Shell "explorer.exe " & ThisWorkbook.Path & "\Папка с файлами", vbMaximizedFocus
End Sub

[lovko]

Большое спасибо!