Create Multipe folders and naming them by Cells in Columns using vba

[sseyerle]

Hello,
I have a worsheet where the Last Names will make up a large folder
directory where we will store scanned documents by last name.

I have an excel workbook named "Student Name"
How do I take the 1100 or so names in column A and create empty
folders named by the cells in Column A in a folder named "Test" on the
desktop?

Thank you

 

[Jarek Kujawa]

select yr names in col A

and use the following macro:

Sub cus()

For Each cell In Selection
MkDir ("C:\Documents and Settings\Desktop\Test\" & cell.Value)
Next cell

End Sub

adjust the path ("C:\Documents and Settings\Desktop\Test\")
accordingly

 

[sseyerle]

Thank you for the reply
I am getting a runtime error and only some of the folders are being
created?
any ideas

Sub cus()


For Each cell In Selection
MkDir ("C:\Documents and Settings\Ryan\Desktop\Test\" &
cell.Value)
Next cell


End Sub

 

[Jarek Kujawa]

don't know
look into yr Last Names, probably some of the names contain characters
that cannot be used in folder names