Private Sub cmdChangePath_Click() Dim fd As FileDialog Dim I As Integer
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.AllowMultiSelect = False 'Allow only one selection
.Title = "Select Folder"
.InitialFileName = "" If .Show = -1 Then
MsgBox .SelectedItems(1) End If End With
Set fd = Nothing End Sub