Textdateien erstellen

Option Explicit
Sub MakeText()
On Error GoTo errHandler
Dim n As Integer, i As Integer
n = 2
Do Until Cells(n, 15) = ""
Open strPath & Cells(n, 1) & ".txt" For Output As #1
Print #1, ""
Print #1, ""
'und so weiter
Close 1
n = n + 1
Loop
Exit Sub
errHandler:
Application.DisplayAlerts = True
Application.StatusBar = False
Application.EnableEvents = True
End Sub

Ist es möglich diesen Code, so zu ändern,
dass nur aus den Zeilen Textdateien erstellt werden,
die mit nach dem Autofiltern angezeigt werden ?
Gregor