Create multiple folder at different location based on Cells

[Max02]

Hello,

Need help!!

I need to create multiple folders based on the names in cells. All the folder name will be in column A
and the location or path where the folder needs to be created Column B. I was trying for codes based in forum but cannot do for different location.

 

[Joe4]

Welcome to the Board!

If your data look something like this:

Then code like this would work:

Sub MakeFolders()

    Dim lr As Long
    Dim r As Long
    Dim fName As String
    
'   Find last row in column A with data
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through all rows starting with row 2
    For r = 2 To lr
'       Build folder name
        If Right(Cells(r, "B"), 1) = "\" Then
            fName = Cells(r, "B") & Cells(r, "A")
        Else
            fName = Cells(r, "B") & "\" & Cells(r, "A")
        End If
'       Make folder
        MkDir fName
    Next r
        
    MsgBox "Macro complete!"
    
End Sub

 

[Max02]

Thank you so much Joe. This is perfect.
???

 

[Joe4]

You are welcome.
Glad I was able to help!