If you can import it into Excel, you can save it with a
FileFormat:=xlText. My code looks like this:

FDATE = Format(Now, "YYYYMMDD")
fName = Worksheets("Nav").Range("A8") + FDATE + ".txt"
UF = "T:\Estimator\" + fName

Worksheets("Inputs").Activate
ActiveSheet.Select
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=UF, FileFormat:=xlText


Then when I open it with Excel as a text file, it puts everything in
the proper rows and columns.

I'm sure some of the more experienced users can come up with something
better.


--
Bruce001
------------------------------------------------------------------------
Bruce001's Profile: http://www.excelforum.com/member.php...o&userid=26630
View this thread: http://www.excelforum.com/showthread...hreadid=507866