massenhaft Ordner nach Namensliste erstellen

Sub Erstelle_Verzeichnis_Loop_Variante()
Dim MainPath As String, SubPath As String, fldName As String
Dim i As Integer, n As Integer, RowFold As Integer
MainPath = "C:\Users\Test\" 'Mit backslash am Schluss
MainPath = InputBox("Bitte Hauptordner kontrollieren bzw. anpassen" & vbCrLf & "Mit backslash  _
am Schluss !!", "Hauptordner", MainPath)
If MainPath = "" Then
MsgBox "Kein Hauptordner definiert"
Exit Sub
End If
RowFold = 1
fldName = Cells(RowFold, 1)
If fldName = "" Then
MsgBox "Kein Ordnername definiert"
Exit Sub
End If
n = CInt(InputBox("Wieviele Ordner in " & MainPath & " erstellen ?", "Massenhafte Ordner  _
erstellen :-)", 50))
If n = 0 Then Exit Sub
For i = 1 To n
MkDir MainPath & fldName
RowFold = i + 1
fldName = Cells(RowFold, 1)
Next i
End Sub