Textdatei erstellen

Sub MakeTextInOne()
Dim n As Integer, i As Integer
n = 2
Do Until Cells(n, 1) = ""
If Rows(n).Hidden = False Then
Open strPath & Cells(n, 1) & ".txt" For Output As #1
Print #1, "ABC" & Trim(Cells(n, 1)) & "ABC"
Print #1, ABC" & Trim(Cells(n, 2)) & "ABC"
'und so weiter
Close 1
End If
n = n + 1
Loop
Exit Sub

nun benötige ich aber doch noch eine andere Option,
der Text soll nicht in einzelne Dateien geschrieben werden sondern in nur eine.
Also bislang wird für jede Zeile eine neue Textdatei erstellt,
es soll aber alles in eine Datei.
Da komme ich jetzt nicht weiter,
kann mir jemand einen Tipp geben?
Gregor