Новая книга,как выбрать путь

Dim path As String
path = Application.GetSaveAsFilename(, "Excel files (*.xlsx),*.xlsx")

Function GetFolderPath(Optional ByVal Title As String = "Âûáåðèòå ïàïêó", _
                        Optional ByVal InitialPath As String = "c:\") As String
     ' ôóíêöèÿ âûâîäèò äèàëîãîâîå îêíî âûáîðà ïàïêè ñ çàãîëîâêîì Title,
    ' íà÷èíàÿ îáçîð äèñêà ñ ïàïêè InitialPath
    ' âîçâðàùàåò ïîëíûé ïóòü ê âûáðàííîé ïàïêå, èëè ïóñòóþ ñòðîêó â ñëó÷àå îòêàçà îò âûáîðà
    Dim PS As String: PS = Application.PathSeparator
     With Application.FileDialog(msoFileDialogFolderPicker)
         If Not Right$(InitialPath, 1) = PS Then InitialPath = InitialPath & PS
         .ButtonName = "Âûáðàòü": .Title = Title: .InitialFileName = InitialPath
         If .Show <> -1 Then Exit Function
         GetFolderPath = .SelectedItems(1)
         If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
     End With
End Function
 Public Sub Save()
     ñîõðàíåíèå = GetFolderPath("Âûáåðèòå ïàïêó", "")
    If ñîõðàíåíèå = "" Then
   Exit Sub    ' âûõîä, åñëè ïîëüçîâàòåëü îòêàçàëñÿ îò âûáîðà
    End If
    ActiveWindow.WindowState = xlNormal
    ActiveWorkbook.SaveAs filename:= _
       ñîõðàíåíèå & "result.xlsm", _
       FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

'создание новой книги
MsgBox "В диалоговом окне выберите папку для сохранения"
1: With Application.FileDialog(msoFileDialogFolderPicker)
         .AllowMultiSelect = False
         .Show
         If .SelectedItems.Count = 1 Then
            iPath = .SelectedItems(1) '.InitialFileName
         Else
            MsgBox "Выберите папку для сохранения", vbCritical, ""
            GoTo 1
         End If
    End With
 
Dim w As Workbook
Workbooks.Add
 
nn = InputBox("Введите имя для новой книги", "Новое имя")
nam = (iPath & nn & ".xls")
 
ActiveWorkbook.SaveAs Filename:= _
nam, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
 
MsgBox " новая книгам создана."