Hi,
this is create new txt file in c:\ :
Sub texte()
Dim Mytxt
Mytxt = FreeFile
Open "C:\myxtx.txt" For Append As #Mytxt
For Each rng In Range("rng2")
If rng.Value < "" Then Print #Mytxt, rng.Value
Next rng
Close #Mytxt
End Sub

but not the same text possition of columns
it is row based.

--

Regards,

Halim


"GFN" wrote:

Is there a way to save a named range as a text file. I have only found how
to save a worksheet as a text file.