フォルダを作成するVBA

Sub CreateFoldersBasedOnCellValue()

    Dim ParentFolderPath As String

    ParentFolderPath = ThisWorkbook.Path ' ファイルと同じディレクトリのパスを取得
    
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets("Sheet6") ' シート名を適切に変更してください
    
    Dim FolderName As String

    FolderName = ParentFolderPath & "\" & ws.Range("A1").value ' A1セルの値をフォルダ名として使用
    
    ' フォルダがなければ作成
    If Dir(FolderName, vbDirectory) = "" Then

        MkDir FolderName

    End If

End Sub