フォルダをダイアログボックスで選択する

With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = True Then
        filePath = .SelectedItems(1)
    End If
End With