Sub Mac1()
On Error Resume Next
For Each oCell In Range([A1], [A65536].End(xlUp))
    If Not IsEmpty(oCell) Then MkDir "C:\" & oCell
Next
End Sub

Sub Mac2()
Dim iFileName As String 
Dim iPath As String 
    iFileName = Range("E5")
    'Если ячейка E5 пустая
    If iFileName = "" Then
        MsgBox "Не указано имя файла!", vbExclamation, "Ошибка"
        Exit Sub
    End If
    iPath = "C:\"
    ActiveWorkbook.SaveAs Filename:=iPath & iFileName, FileFormat:=xlExcel9795
End Sub

Sub Mac1()
Dim ocell As Range
Dim iFileName As String
Dim iPath As String
Application.DisplayAlerts = False
On Error Resume Next
    For Each ocell In Range([A1], [A65536].End(xlUp))
        If Not IsEmpty(ocell) Then
            MkDir "C:\" & ocell
            iFileName = ocell.Offset(0, 1)
            If iFileName = "" Then 'Если ячейка правее пустая
                MsgBox "Не указано имя файла!", vbExclamation, "Ошибка"
                Exit Sub
            End If
            iPath = "C:\" & ocell & "\"
            ActiveWorkbook.SaveAs Filename:=iPath & iFileName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        End If
    Next
Application.DisplayAlerts = True

End Sub