Convert Excel Cells to Different Notepad Files

[TootingPopular]

Hi, I have an Excel file with 2 Columns and 1001 Rows.
Row 1 contains the Column Headers:
A1 = Name, B1 = CV
A2 is the person's name e.g. John Smith.
B2 is the whole of their Curriculum Vitae (just in text form).
And so on A3, B3 ... A1001, B1001, a thousand names and a thousand CVs.
I need these as 1000 unique Notepad files e.g. called John Smith.txt.
Manually this would be copy and paste B2 into Notepad, Save as A2.txt, repeat for each Row.
But it'll take ages. Is there a way to do it automatically. I have no programming or macro skills, but I'd be v grateful for some instructions. Many, many thanks if you can help.

 

[daverunt]

Hi

Not very tidy but it works.

Change the path to a suitable one and it should exist already. Creates Text file with persons name from column A and file content from column B

Sub Create_txt()
Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
Path = "C:\junk\"
For Each cell In Rng
cell.Activate
Nme = cell.Value
cv = cell.Offset(0, 1).Value

    Open Path & Nme & ".txt" For Output As #1
    Print #1, cv
    Close #1
    Next
End Sub

 

[TootingPopular]

Great Dave, many thanks, will try out tomorrow!