Create folders using range as folder names

[Matt0110]

Good morning all,

I have a list of over 600 unique names and need to create a folder for each of them. I'm sure this can be easily done in Excel but I'm struggling (perhaps with my terminology?). I've found a few discussions in the message board but non that seem to do what i need...

Any help would be greatly appreciated.

Kind regards,

Matt

 

[Andrew Poulsom]

Check out the MkDir statement in VBA Help.

 

[Matt0110]

Hi Andrew,

Thanks very much - here's the solution that works for me.

Sub MakeDirs()
Dim vFolderList As Variant, i As Long
vFolderList = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value
On Error Resume Next
For i = 1 To UBound(vFolderList, 1)
    MkDir "T:\" & vFolderList(i, 1)  'amend the directory as required (it must exist)
Next
End Sub