It can be done something like this. Attatch code to a command button on the
sheet.
Alter code to suit your reqirements. Test on a dummy workbook first until
you get it to work the way you want.
Please note that there are practical limits in windows in the number of
subfolders that can be created in a folder etc.
You may run into problems with 250 in the same subfolder.
Private Sub CommandButton1_Click()
' assuming names are all legal characters.
On Error Resume Next
ChDrive "c" ' make sure you are on the drive you want be
ChDir "\" ' make sure you are in the root dir
ChDir "demo" ' change to the dir you want the folders created in
For i = 10 To 15 ' loop thru the cells with the names (assumes col E rows 10
to 15)
MkDir Worksheets("sheet1").Cells(i, "e")
Next i
End Sub
HTH
Ken
Bookmarks