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

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

ネタ元

• http://officetanaka.net/excel/vba/tips/tips39.htm
• http://www.excel.studio-kazu.jp/kw/20090401113332.html