Hay,
when i use this code:

Range("I6").Select
For i = 1 To Selection.Rows.Count
Filename = "data.txt"
Open Filename For Output As #1
Print #1, Selection.Cells(i, 1).Value
Close #1
Next i

i get a file data.txt filled with the value of cell I6 .

It's 1 line of data but excel add's a CR LF to it but i don't want that.
Is there a way i get just 1 line of data in my data.txt file?