Create Folder

T

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
 
Top