Excel Zeilen als separate .txt Dateien ausgeben

Liebe Administrator Community,

ich habe in diesem Forum bereits einen ähnlichen Beitrag zu folgendem Problem gefunden, jedoch ist dieser veraltet und passt nicht speziell auf meine Frage (den anschließenden Code habe ich diesem entnommen und nach bestem Gewissen angepasst). Ich habe eine Excel Tabelle mit mehreren Tausenden Zeilen der Spalte A, welche alle als einzelne .txt Dateien auf meinem Rechner landen sollen. Folglich ist der Inhalt der Zeile auch der Inhalt des Textdokumentes.

Sub ErstelleDateien()
Ziel = "C:\Dateiordner" #<- habe ich hier natürlich richtig benannt
Stellen = 5
Typ = ".txt"
AbZeile = 1
Spalte = "A"

Zeile = AbZeile
Nr = 1000001

Set fso = CreateObject("Scripting.FileSystemObject")
If Right(Ziel, 1) <> "\" Then Ziel = Ziel & "\"

Do While Cells(Zeile, Spalte).Value <> ""
fso.CreateTextFile(Ziel & Right(Nr, Stellen) & Typ).Write Cells(Zeile, Spalte).Value
Zeile = Zeile + 1
Nr = Nr + 1
Loop
End Sub

Nutze ich den vorangegebenen Code, so erhalte ich den Laufzeitfehler '5'. Handelt es sich um zu viele zu bearbeitende Zeilen? Versuche ich den Code durch F8 in Einzelschritten durchlaufen zu lassen, so ist bei dem dritten Dokument Schluss. Ich habe einen Test mit der gleichen Anzahl an Zeilen gemacht, wo der Inhalt der Zeilen lediglich aus ein paar Zeichen bestand, da ging es. Mache ich das jetzt mit den Zeilen (die mehrere Sätze enthalten), erscheint geschildertes Problem.

Über Hilfe würde ich mich freuen, vielen Dank im voraus!

Grüße 007007B

    Set a = fso.CreateTextFile(Ziel & Right(Nr, Stellen) & Typ).Write Cells(Zeile, Spalte).Value
    a.Close

>     Set a = fso.CreateTextFile(Ziel & Right(Nr, Stellen) & Typ).Write Cells(Zeile, Spalte).Value
>     a.Close
>