Ricky,

It works fine for me but I do have 1 comment, you must close the file

Sub Testme()
Sheets("sheet01").Activate
gOutfile = "c:/test.txt"
Open gOutfile For Output As #1
For r = 1 To 30
xData = Cells(r, 1).Value
Print #1, xData
Next r
Close #1
End Sub

Mike

"Ricky" wrote:

I have the following value in a cell:
'TEST14','TEST15','TEST16'

When printing this value to a TXT file, I get:
TEST14','TEST15','TEST16'

How do I get to include the single quote that occurs in the beginning
of the string to be included in the output? Please help.

My code:

Sub Testme
Sheets("sheet01").Activate
gOutfile = "c:/test.txt"
Open gOutfile For Output As #1
For r = 1 To 30
xData = Cells(r, 1).Value
Print #1, xData
Next r
End Sub