Sub CreateFolders()
Dim cell as Range
On Error Resume Next
for each cell in range("A1:A100")
mkdir "C:\MyTopFolder\" & cell.Value
if err.Number < 0 then
cell.Interior.colorIndex = 3
err.clear
end if
Next
On Error goto 0
End Sub

Adjust to suit.
--
Regards,
Tom Ogilvy



"Parisa" wrote:

I have a list of names (about hundred) in an excel spreadsheet. I need to
created a folder for each name. Is there any way to automatically create a
folder from the list of names?