Try the below

Sub Macro()
Dim cell As Range
For Each cell In Range("A1:A500")
MkDir "c:\" & cell.Text
Next
End Sub


--
Jacob


"primed" wrote:

Hi,

I have a list of names in excel, approx 500 long. I need to create a folder
for each one. How do i do it automatically?

Thanks