On Error Resume Next
For i = 1 To Cells(Rows.Count,"A").End(xlUp).Row
MkDir Cells(i,"A").Value
Next i

--

HTH

RP
(remove nothere from the email address if mailing direct)


"afaubert" wrote in message
...
I need to create folders with subfolders from a listing that I have in an
excel document. Is there a macro that will do that for me instead of
having
to go to the browser and use "FolderNewName" There are over a thousand
subfolders that I need to create and don't want to do it manually.

Thanks in advance to the gurus.

Allie :-)