Sub tryme()
For Each mycell In Range("C3:C6")
MkDir "C:\" & mycell.Value
Next
End Sub
best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email
"David Shoemaker" wrote in
message ...
MkDir "C:\" & Range("C3").Value
Example: C:\12345\ART, LG1, G-CODE, LG3, LR2