Schleife für Zellen als Textdatei speichern

Sub AlsTextdateiSpeichern()
Dim iRow As Integer
On Error GoTo ERRORHANDLER
iRow = 2
Close
Do Until IsEmpty(Cells(iRow, 2))
Open ActiveWorkbook.Path & "\Daten\" & _
Cells(iRow, 1) & ".txt" For Output As #1
Print #1, Cells(1, 2).Value & ": " & Cells(iRow, 2).Value & Chr(10) & _
Cells(1, 3).Value & ": " & Cells(iRow, 3).Value & Chr(10) & _
Cells(1, 4).Value & ": " & Cells(iRow, 4).Value & Chr(10) & _
Cells(1, 25).Value & ": " & Cells(iRow, 25).Value
Close
iRow = iRow + 1
Loop
MsgBox "Die Dateien wurden angelegt!"
Exit Sub
ERRORHANDLER:
MsgBox "Die Dateien konnten nicht angelegt werden!"
End Sub