リスト化した名前のフォルダを一括作成　エクセルマクロ

Option Explicit

Function getFolderPath() As String

With Application.FileDialog(msoFileDialogFolderPicker)

    If .Show Then

      getFolderPath = .SelectedItems(1)

    End If

  End With

End Function
Sub get_FolderPath()

Call mkdirFolder

End Sub

Sub mkdirFolder()

Dim Path As String
Path = getFolderPath

Dim i As Long
For i = 2 To Range("A2").End(xlDown).Row

Dim FolderName As String '作成フォルダ名
FolderName = Cells(i, 1).Value

Dim NewDirPath As String '親フォルダパス
NewDirPath = Path & "\" & FolderName

'同名のフォルダの存在有無を確認
If Dir(NewDirPath, vbDirectory) = "" Then
MkDir Path & "\" & FolderName
End If

Next i

MsgBox "終了しました。"

End Sub