Выбор папки в макросах excel

На просторах интернета есть множество способ вызова окошка для выбора папки сохранения (например большого количества автоматически создаваемых файлов), но все они какие-то громоздкие и неудобные, поэтому предлагаю самое простое решение.

Необходимо просто записать эту функцию в самом начале (до объявления макроса Sub ...())

Function GetFolder(strPath As String) As String

Dim fldr As FileDialog

Dim sItem As String

Set fldr = Application.FileDialog(msoFileDialogFolderPicker)

With fldr

.Title = "Выберите папку куда сохранить документы..."

.AllowMultiSelect = False

.InitialFileName = strPath

If .Show <> -1 Then GoTo NextCode

sItem = .SelectedItems(1)

End With

NextCode:

GetFolder = sItem

Set fldr = Nothing

End Function

' fldr - выбранная папка