VBA code for specific sheets and creating a file

[omf_24]

I'll start off with I haven't done VBA coding in a while. This is what I am trying to do.

I have a column with tab names, and I have a column with file names that I want created. I'll give an example:

Tab Name	File Name
Bananas_For_Sale	Bananas.sal
Apples_For_Sale_No	Apples_for_sale_November.sal

<tbody>
</tbody>

So basically, I want the macro to go through each tab name, copy the contents and create a file based on the file name. For example, go to the Apples_For_Sale_No tab, and create a file name called Apples_for_sale_November.sal.

Now here's another tricky part, I was told to use CreateTextFile otherwise the program that feeds in these .sal files wont work properly. A coworker gave me this piece of code. My problem is that the "Output_Start" only looks at the first line in one tab, but I need it to look at each tab, take the first line and stop at the end, making it comma delimited. Anyone able to please help me?

Set tsOutput = fs.CreateTextFile(rPath & Range("Output_Name") & ".sal")
Set rnRecord = Range("Output_Start")


Do While rnRecord(1) <> ""
tsOutput.WriteLine VBA.Left(IdentifierRecord(rnRecord), Len(IdentifierRecord(rnRecord)) - Len(sDelimiter))
Set rnRecord = rnRecord.Offset(1)