Hi ..

Some issus.

One place you write AABB and in the code you write ABB

("c:\GL1025\& ABB.NAME &".txt",

you should add one "

("c:\GL1025\" & ABB.NAME &".txt",



diacci1st skrev:

HI
On the below code I would like to add a variable that uses the value of a
text box from a form:
So the form is AABB the text box is NAME

I have tried to change the code below to
Set a = fs.CreateTextFile("c:\GL1025\& ABB.NAME &".txt", True) but it does
not work
coul you please help?

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\GL1025\testfile.txt", True)
For Each Cell In Range("A1:A65000")
s = Cell.Value
a.WriteLine (s)
Next
a.Close


End Sub