VBA: ausexcell Tabellenblätter eine Datei generieren

was auch logisch ist, da Open ... For Output immer eine neue Datei 
anlegt. Ein Blick in die Online-Hilfe zeigt, dass man als Mode auch 
Append verwenden kann ;-)

by the way: die Aufspaltung in 20 einzelne Prozeduren ist natürlich 
suboptiomal. Da solltest Du besser eine einzige Prozedur draus machen, 
an die Du dann den Namen des jeweiligen Sheets übergibst. In einem 
weiteren Parameter kannst Du dann mitgeben, ob eine neue Datei erstellt 
werden soll oder oben an die bestehende angehängt werden soll.

Dann würde ich das ganze auch nicht unbedingt in das VBA-Modul des 
ersten Sheets schreiben, sondern besser in ein eigenes Model ... sonst 
ist der ganze schöne Code weg, wenn aus versehen mal das Blatt gelöscht 
wird ;-)

Open ist schon richtig ... nur halt nicht For Output sondern dann halt 
For Append ... aber das steht wie gesagt auch in der Online-Hilfe zur 
Open-Anweisung ;-)

Beispiel:

Option Explicit

Private Sub test()
    readValue ActiveWorkbook.Sheets("Sheet1")
    readValue ActiveWorkbook.Sheets("Sheet2")
End Sub

Private Sub readValue(ByRef pSheet As Worksheet)
    MsgBox pSheet.Cells(1, 1)
End Sub

Die Prozedur readValue gibt per Messagebox den Inhalt der Zelle A1 aus. 
Die Frage ist: von welchem Sheet? Antwort: von dem Sheet, das ihr als 
Parameter in pSheet übergeben wurde. Die Prozedur test zeigt, wie die 
readValue Prozedur aufgerufen wird um einmal den Wert aus Sheet1 und 
einmal aus dem Blatt Sheet2 auszulesen. Die Blattnamen musst Du 
natürlich an Deine Gegebenheiten anpassen.

Wenn Du Dich etwas in das Thema einarbeiten willst, versuch im Internet 
doch mal den Unterschied zwischen Sub und Function sowie zwischen ByRef 
und ByVal heraus zu finden. Das wird dir später beim Code-Verständnis / 
Programmieren sehr helfen.