How to use FileDialog in Excel VBA?

[Mark5]

Hi,

In Excel VBA, I use the following code to show the FileDialog box and select a new folder:

Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ThisWorkbook.Path
.Show
TextBox1 = .SelectedItems(1)
End With
End Sub

After the dialog box appears, if, however, I change mind and don't want to select a new folder and click the OK button or Cancel button, an error will pop up: "Path does not exist....". Any thing I am doing wrong?

Thank you in advance.

[shg]

.InitialFileName = ThisWorkbook.Path
if  .Show = 0 then exit sub 
TextBox1 = .SelectedItems(1)

[Mark5]

Thank you shg.

I have just tried your code and that workd fine when I click the Cancel button. However when I click the OK button, the error massage still pop up: "Path does not exist....".