File Dialog

Sub PickAFolder()

    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        If .SelectedItems.Count > 0 Then
            Debug.Print .SelectedItems.Item(1)
        End If

    End With
End Sub