VBA - Folder Picker - set where to start [duplicate]

Answer 1

Here is a much simpler way. This code snippet lets user pick a folder and then prints that folder address to the screen:

Sub PrintSelectedFolder()
    Dim selectedFolder

    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        selectedFolder = .SelectedItems(1)
    End With

    'print to screen the address of folder selected
    MsgBox (selectedFolder)

End Sub