Excel Daten automatisch in mehrere Exceldateien exportieren

Hallo Allerseits,
ich habe im Moment eine ganz simple Aufgabe und frage mich ob ich das durch eine automatisierte Vorgehensweise verkürzen kann.

Folgende Aufgabenstellung:
Aus unserem alten CRM wurde eine Excel-Tabelle exportiert.

Firmen-Name, Ansprechpartner, Adresse, etc.
Darunter auch ein "Beschreibungsfeld" Dieses Feld ist frei beschreibbar.

Aufgabenstellung:
Da sich dieses Feld nicht sauber in das neue Programm integrieren lässt soll es in eine Word- oder Excel-Datei exportiert werden welche als Dateinamen den Firmennamen erhalten soll.

Bei knapp 10.000 Adressen sitze ich da eine Weile.

Gibt es eine Möglichkeit so etwas automatisiert erstellen zu lassen?

Hoffe ich habe mein "Problem" verständlich genug geschildert.
Bin um jeden Tipp dankbar.


DANKESCHÖN schön mal im Voraus.
Greetz Filipe

Sub Exportieren()
    Dim cell As Range, strFileName As String
    Const ZIELORDNER = "C:\ziel"  
    
    Application.ScreenUpdating = False
    With Sheets(1)
        For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            With Workbooks.Add
                cell.Offset(0,1).Copy .Sheets(1).Range("A1")  
                strFileName = ZIELORDNER & "\" & Trim(cell.Value) & ".xlsx"  
                .SaveAs strFileName
                .Close True
            End With
        Next
    End With
    MsgBox "Fertig"  
    Application.ScreenUpdating = True
End Sub