vba application.FileDialogでフォルダを設定する

menuシートのB5セルにファイルせんたくのダイアログを使用して、出力用のフォルダを設定する。

Sub SetFolder()
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            Worksheets("menu").Range("B5") = .SelectedItems(1)
        End If
    End With
End Sub