Danke Ralf, aber das hab ich schon versucht.

In 15 verschiedenen Sheets steht der folgende Code:

Public Sub HoleDaten()
'
    Application.Wait Now + TimeSerial(0, 0, 2) 'wartet 2 Sekunden
'
    'löscht die Filter in Spalte C und F
    ActiveSheet.Range("$A$4:$L$10000").AutoFilter Field:=3
    ActiveSheet.Range("$A$4:$L$10000").AutoFilter Field:=6
    ActiveSheet.Range("$A$4:$L$10000").AutoFilter Field:=9
'
    Application.Wait Now + TimeSerial(0, 0, 2) 'wartet 2 Sekunden
'
    'loescht Daten in Spalte C bis L und Bereich ab A6 bis B10000
    Columns("C:L").Select
    Selection.ClearContents
    Range("A6:B6").Select
    Selection.AutoFill Destination:=Range("A6:B10000")
    Range("A6:B10000").Select
    Selection.ClearContents
    Range("A1").Select
'
    ' Die Funktion arbeitet mit der obrigen GetDataClosedWB zusammen
    Dim Pfad            As String
    Dim Dateiname       As String
    Dim Blatt           As String
    Dim Bereich         As String
    Dim Ziel            As Range
    Pfad = "X:\Benutzer_Daten\Produktionsmeeting\Stehzeit\"
    Dateiname = "Stehzeitliste Schäumerei Fill.xlsx" ' aus welcher Datei soll er holen?
    Blatt = "Stehzeitliste"  ' von welcher Tabelle soll er holen?
    Bereich = "A4:J10000"   ' aus welchem Bereich soll er holen?
    Set Ziel = ActiveSheet.Range("C4")  ' in welchen Bereich soll er kopieren? Genauer gesagt: _
Bei welcher Zelle soll er anfangen, Datein reinzukopieren? Bsp: ActiveCell geht auch
   If GetDataClosedWB(Pfad, Dateiname, Blatt, Bereich, Ziel) Then
        MsgBox "Daten importiert" & Chr(10) & Chr(10) & Chr(169) & " ICH"
    End If
'
    Application.Wait Now + TimeSerial(0, 0, 2) 'wartet 2 Sekunden
'
'   kopiert Formeln aus Zelle A5 und B5 bis zum Ende der Spalte C
    Dim LoLetzte As Long
    LoLetzte = IIf(IsEmpty(Range("C65536")), Range("C65536").End(xlUp).Row, 65536)
    Range("A5:B5").AutoFill Destination:=Range("A5:B" & LoLetzte)
'
    Application.Wait Now + TimeSerial(0, 0, 2) 'wartet 2 Sekunden
'
'Filtern Makro
    ActiveSheet.Range("$A$4:$L$10000").AutoFilter Field:=3, Criteria1:="<>"
    ActiveSheet.Range("$C$4:$L$10000").AutoFilter Field:=6, Criteria1:="Maschine"
    ActiveSheet.Range("$C$4:$L$10000").AutoFilter Field:=9, Criteria1:="Anlagenstillstand"
'
    'filtert nach Jahr
    'ActiveSheet.Range("$A$4:$V$10000").AutoFilter Field:=1, Operator:= _
    ' xlFilterValues, Criteria2:=Array(0, "12/31/2021")
    'ActiveWindow.SmallScroll Down:=-24
'
End Sub

Nun möchte ich auf dem Master Sheet alle Codes mit einer Schaltfläche auf einmal ausführen. Danke