VBA批量创建文件夹

Sub createFolder()
    
    Dim wks As Worksheet
    
    On Error Resume Next
    
    Set wks = ThisWorkbook.Worksheets(1)
    basepath = ThisWorkbook.Path & "\"
    Max = wks.Range("A100000").End(xlUp).Row
  
    For i = 2 To Max
   
        VBA.MkDir (basepath & wks.Cells(i, 1))
    Next
End Sub