daten in .txt speichern

Sub AllesSpeichern()
Dim lEnd As Long
Dim lRow As Long
Dim del As String
lEnd = Range("A65536").End(xlUp).Row
del = " "
Open "D:\Mappe" & Date & ".txt" For Output As #1
For lRow = 1 To lEnd
Print #1, Cells(lRow, 1) & del & Cells(lRow, 2) & del & Cells(lRow, 3) _
Next
MsgBox "Die Datei wird gespeichert!"
Close #1
End Sub