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

--
Message posted from http://www.ExcelForum.com

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

--
Regards,
Tom Ogilvy

"Murray Outtrim " wrote in
message ...
How do I create a folder for each name in a list of unknown length?


---
Message posted from http://www.ExcelForum.com/