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

S

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
 
J

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
 
S

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
 
J

Jarek Kujawa

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