[VBA]ダイアログでフォルダの選択を行う

Qiita初投稿。
とりあえず手始めに。
wordでマクロ組むときに必要だったのでメモ。
VBAなので勿論Excelでも動くと思われる。

With Application.FileDialog(msoFileDialogFolderPicker)
   .Title = "テストタイトル"
   .AllowMultiSelect = False   'フォルダを複数選択できるようにするか？
   If .Show = -1 Then
        MsgBox ".SelectedItems(1)" & "が選択されました"
    Else
        MsgBox "選択されていません。"
    End If
End With

忘備録的な

• SelectedItems(1)で選択したフォルダのディレクトリパスが取得できる。
• if~は勿論別に無くても動く。