Sub СозданиеBATфайлов()
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range("B1:VX1")
    folder$ = ThisWorkbook.Path & "\файлы BAT\"
    On Error Resume Next: MkDir folder$    ' создаём папку, если её нет
    For i = 1 To 15
     For Each cell In ra.Cells    ' перебираем все ячейки в первом столбце
        ' сохраняем текстовый файл
            SaveTXTfile folder$ & cell, (Cells(cell.colname, i))
     Next cell
    Next i

End Sub

Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
    On Error Resume Next: Err.Clear
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.CreateTextFile(filename, True)
    ts.WriteLine txt: ts.Close
    SaveTXTfile = Err = 0
    Set ts = Nothing: Set fso = Nothing
End Function