Try something like the following code:

Dim FName As String
Dim FNum As Integer
Dim Rng As Range
FName = "C:\Test2\Test2.txt" ' change as desired
FNum = FreeFile()
Open FName For Output As #FNum
For Each Rng In Selection.Cells ' change range as desired
Print #FNum, Rng.Text
Next Rng
Close #FNum


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"saturnin02" <saturnin02_at_hotmail.com wrote in message
...
Chip,
Everything works good with the export to text macro.
I need to modify it to reflect a specila twist so that another program can
read it, and that is I want the macro to export all cell values as text,
but
put each cell value in one column only i.e. in destination file.

A1 A2 A3
B1 B2 B3

to
A1
A2
A3
B1
B2
B3

Is it possible to modify it that way?
Sorry, put I am using a program in DELPHI that will only import text files
with values in one column only.

Let me know.
Tx,