Hi Everybody,

I have a directory which has 300+ folders
I have to change the structure – I mean insert 5 sub-folders in all the 300+ folders

Is there a way I can modify this code to add the sub-folders listed in Excel to automatically include in all those 300+ folders.

[vba]
Public Sub ProcessData()
Const ROOT_FOLDER As String = "C:\myDir\"
Dim LastRow As Long
Dim i As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

On Error Resume Next
For i = 1 To LastRow

MkDir ROOT_FOLDER & .Cells(i, "A").Value
Next i
On Error GoTo 0
End With

End Sub
[/vba]


Any ideas
Thanks & Best regards