put it back in............

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 '<---- change
Print #1, xData
Next r
End Sub


see if that works. i didn't test it.
:)
susan



On Sep 4, 11:14*am, 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