I'm trying to pick a folder name with Application.FileDialog(msoFileDialogFolderPicker) but when I select a folder and click OK with this code below - the .SHOW goes back and asks me to select a subfolder. I want to just select the first folder I pick. (forgive the GOTO's - I'm just testing the functionality. Thanks for any help

Sub GetFolder(strPath As String)
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show = 0 Then GoTo NextCode 'user hit Cancel - don't set the folder path
sItem = .SelectedItems(1)
If .Show = -1 Then GoTo NextCode 'user hit OK - folder path set we can exit
End With
NextCode:
strPath = sItem
Set fldr = Nothing
End Sub