Excel to text file transfer of data.

Hi

Had a funny feeling that may be an issue. Try this one.

Sub bbb()
  Open "c:\temp\!aaa.txt" For Output As 1
  
  For Each ce In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    holder = "(" & ce.Value & "," & ce.Offset(0, 1).Value & "," & ce.Offset(0, 2).Value & "," & ce.Offset(0, 3).Value & ")[" & ce.Offset(0, 4).Value & "]"
    Print #1, holder
  Next ce
  
  Close #1

End Sub

rylo