Create new named workbooks based on list

[maartenfct]

Hi All,

I'm trying to get a macro working to generate new (empty) workbooks named based on text entries in column A. Each cell in column A should correspond to a newly generated (and named) workbook. The newly generated workbooks should be in csv format.

Is there an easy way to do this? I've been wrestling with it for a while but can't seem to get it working..

Thanks!

 

[DanteAmor]

Try with this code:

Sub Create_new_workbooks()
    Dim i As Long, w As Object
    Dim wName As String, wPath As String
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    wPath = ThisWorkbook.Path & "\"
    '
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        wName = Cells(i, "A").Value
        Set w = Workbooks.Add
        w.SaveAs Filename:=wPath & wName & ".csv", FileFormat:=xlCSV, CreateBackup:=False
        w.Close False
    Next
    MsgBox "End"
End Sub

 

[maartenfct]

Try with this code:

Sub Create_new_workbooks()
    Dim i As Long, w As Object
    Dim wName As String, wPath As String
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    wPath = ThisWorkbook.Path & "\"
    '
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        wName = Cells(i, "A").Value
        Set w = Workbooks.Add
        w.SaveAs Filename:=wPath & wName & ".csv", FileFormat:=xlCSV, CreateBackup:=False
        w.Close False
    Next
    MsgBox "End"
End Sub

Worked like a charm! Thanks a million!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.