Copying Folders without subfolders and without files

[Sandler]

Is there a VBA code that would allow me to select folders in a directory and copy to another directory without copying over the subfolders and the files?

Thanks

 

[Nine Zero]

Hello,

the code below is something i found on here that works wonders for something like this.....sorta

this one you have to actually type the names of the folders into separate cells in the spreadsheet then highlight them and run the macro

the folders will then be created IN THE SAME FOLDER LOCATION WHERE YOU PLACE THE MACRO

I love this code and it helps save tons of time!

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