Creating Directories from data in selected cell and then create a sub-directory, one Macro

[ozzborn]

I am trying to create a Macro in VBA editor. What I want it to do is create a directory from the text in one cell be selected.

The code below works to create the directory from a selected cell but will not create sub-directory called "High".

I also think I need some error handling included... I am not very good at VBA.

Sub MakeDirs()
For Each cell In Selection
MkDir "C:\Users\Owner\Documents\Mainfolder" & cell.Value
MkDir "C:\Users\Owner\Documents\Mainfolder" & cell.value & "\High"
Next cell
End Sub

Any help is greatly appreciated.

Thanks
Ozz

 

[Fluff]

Depending on what your cell values are, you might need to make this change

Sub MakeDirs() 
For Each cell In Selection 
   MkDir "C:\Users\Owner\Documents\Mainfolder\" & cell.Value
   MkDir "C:\Users\Owner\Documents\Mainfolder\" & cell.value & "\High"
Next cell 
End Sub

 

[ozzborn]

That worked, thank you.

I thought I had tried that at least it was in my notes.

Thanks again.

Ozz

 

[Fluff]

Glad to help & thanks for the feedback