Simple: Create folder based on cell value

Hi,

this macro assumes that your folder names are in column F starting from F2 and there are no empty cells in the list. It will ask if you want to make the two sub folders.

Sub mkDir_from_cell()

Dim CellDir As String, MyMsg
Dim i As Integer, x

For i = 2 To ActiveSheet.Cells(Rows.Count, "F").End(xlUp).Row
    CellDir = ActiveSheet.Cells(i, "F").Value
    If Len(Dir("E:\Users\Corp Est\LM Region\PROJECTS\" & CellDir, vbDirectory)) = 0 Then
        mkdir "E:\Users\Corp Est\LM Region\PROJECTS\" & CellDir
        MyMsg = MsgBox("Make 'BOL' and 'Tonnage' folders?", vbYesNo, CellDir)
        If MyMsg = vbYes Then
            mkdir "E:\Users\Corp Est\LM Region\PROJECTS\" & CellDir & "\BOL"
            mkdir "E:\Users\Corp Est\LM Region\PROJECTS\" & CellDir & "\Tonnage"
        End If
    End If
Next i
End Sub