ExcelVBAでフォルダ選択ダイアログ

    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "c:\" '初期フォルダ
        If .Show = True Then
            MsgBox = .SelectedItems(1)
        End If
    End With