I am trying to add to the code below for it to make subfolders within the subfolders that are being created by the code below if that makes since.. example, I got the code and it makes folders depending on the cells highlighted but inside the folder that its making, I want it to make another folder inside that folder...this is the code, can anybody help with the code
Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub
Bookmarks