Saving cells to separate .txt files with different names

[Carey22]

Hello

I'm new to Macros and I've been trying without any success to create a 'save as' macro in Excel. I have two columns of data, column A contains the file name I would like to create and column B contains the actual file contents. I have over 1,000 cells I would like to create separate text files for and save all in one folder.

I would be so grateful if someone could assist?

Thank you

 

[Takae]

Please test with small sample data.

Sub txt()
Dim LR As Long, i As Long
Dim ws1 As Worksheet, ws2 As Worksheet
Const path = "C:\Users\Carey22\" 'Change this line to your folder name.
Set ws1 = Sheets("sheet1")
Set ws2 = Sheets("sheet2")
With ws2
    LR = ws1.cells(Rows.Count, 1).End(xlUp).row
    For i = 2 To LR
        .Range("A1").Value = ws1.cells(i, 2).Value
        .copy
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=path & ws1.cells(i, 1).Value & ".txt", _
        FileFormat:=xlText, CreateBackup:=False
        ActiveWorkbook.Close
        Application.DisplayAlerts = True
    Next
End With
End Sub

 

[Carey22]

Thank you