Excel VBA フォルダー選択ダイアログ表示関数

フォルダ選択ダイアログを表示したいときに
下記の関数を呼び出すと開きます。

引数（パラメータ）にフォルダのパスを渡すと、
指定したフォルダを表示する。

戻り値は、選択したフォルダのパスになります。

Public Function folderSelect(fpath As String)
    Set FS = CreateObject("Scripting.FileSystemObject")
    folder = fpath
    With Application.FileDialog(msoFileDialogFolderPicker)
        If fpath <> "" And FS.FolderExists(fpath) Then
            .InitialFileName = fpath
        End If
        If .Show = True Then
           folder = .SelectedItems(1)
        End If
    End With
    folderSelect = folder
End Function