Wow! That worked and could not have been easier! Thanks, Bernie!!
"Bernie Deitrick" wrote:
> Sherri,
>
> With that sheet active:
>
>
> Sub MakeFolders()
> Dim myC As Range
> For Each myC In Range("A2", Cells(Rows.Count, 1).End(xlUp))
> MkDir "D:\Foldername\" & myC.Value
> Next myC
> End Sub
>
> HTH,
> Bernie
> MS Excel MVP
>
>
> "Sherri" <(E-Mail Removed)> wrote in message
> news:EBF2C006-3F58-4F98-AEDC-(E-Mail Removed)...
> >I am a novice. I need to create about two hundred folders in a specific
> > folder on an external drive. I have a list of the names for these folders in
> > an excel file. For example, Sheet1, A1 says Folder_Name, and the list of
> > names is in A2 thru A200. Anyone have code that will create these folders for
> > me?
> >
> > Thanks!
>
>
>
|