Save text in a range of cells to .txt file
<p>I need to save an active range of texts to a .txt file.</p>

<p>The range is a column F within the worksheet called "Reports". The number of rows depends on how many rows the report generates. This column F contains email addresses, which we need to upload to another system via a .txt file.</p>

<p>In the .txt file, each address will be located in a different line without other delimiters.</p>

<p>I have code, but it leaves the first line of the text file blank, starting with the second line.</p>

<pre><code>Sub Macro_Newsletter()
Dim c As Range
Dim r As Range
Dim output As String

For Each r In Worksheets("Reports").Range("F2:F10000").Rows
    For Each c In r.Cells
        output = output &amp; vbNewLine &amp; c.Value
    Next c
Next r
Open "C:\Users\joseph.lin\Desktop\Database\Newsletter" For Output As #1
Print #1, output
Close
End Sub
</code></pre>

<p>I only know how to output them to outlook. Please help me figure out how to do this using VBA.</p>