I'm fairly sure this is a simple request but I don't generally use any VBA scripts so it's beyond my knowledge.

I have a folder of about 700 .csv files that are "|" delimited, essentially all I want to do is open this particular folder and convert all the .csv files to .xls AND make all columns formatted as "text" rather than "general." I did some searching and found the exact code to convert the files however I can't figure out how to also make the columns text. Any help would be greatly appreciated! I've tried looking but if the answer is else where please point me in the right direction. (Below is the code that works for the .csv to .xls)

```
Sub CSVtoXls()
Dim CSVfolder As String
Dim XlsFolder As String
Dim fname As String
Dim wBook As Workbook 
CSVfolder = "C:\Users\del44\Desktop\CSV Files\"
XlsFolder = "C:\Users\del44\Desktop\Excel Files\" 
fname = Dir(CSVfolder & "*.csv") 
Do While fname <> ""
Set wBook = Workbooks.Open(CSVfolder & fname, Format:=6, Delimiter:="|")
wBook.SaveAs XlsFolder & Replace(fname, ".csv", ".xls")
wBook.Close False
fname = Dir
Loop
Dim rCell As Range   

```