Create Folder

[Murray Outtrim]

How do I create a folder for each name in a list of unknown length

 

[Tom Ogilvy]

Dim rng as Range, cell as Range
set rng = Range(Range("A1"),Range("A1").End(xldown))
for each cell in rng
mkdir "C:\MyFolder\Names\" & cell.Value
Next