Zwei Prozeduren, nur eine wird ausgeführt

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Run "Daten_aus_manueller_Steuerung_aktualisieren"
Application.Run "alles_aktualisieren"
Workbooks.Open Filename:="Q:\rz\bank21-Reporting\UpdateKundenstamm.xlsm"
Workbooks.Open Filename:="Q:\rz\bank21-Reporting\UpdateKontostammdaten.xlsm"
Application.ScreenUpdating = True
End Sub

'Code in der Persönlichen Makroarbeitsmappe in einem allgemeinen Modul
Sub UpdateKundenstamm()
'Neueste Kundenstammdaten-Datei setzen
Dim strDatei As String
Dim strNeu As String
Dim strDatum As String
Dim strVerzeichnis As String
Dim strName As String
'Verzeichnis mit den Kundenstammdaten -  anpassen !!!
strVerzeichnis = "Q:\rz\bank21-Reporting"
'Dateiname bis zum Beginn des Datums    -  ggf. anpassen !!!
strName = "Kundenstammdaten.xlsx-de."
'neue Stammdatendatei(en) suchen
strDatei = Dir(strVerzeichnis & "\" & strName & "*.xlsx")
If strDatei = "" Then
'Dateiname bis zum Beginn des Datums    -  ggf. anpassen !!!
strName = "Kundenstammdaten.xlsx-de-de."
'neue Stammdatendatei(en) suchen
strDatei = Dir(strVerzeichnis & "\" & strName & "*.xlsx")
End If
If strDatei  "" Then
'neueste Stammdatendatei ermitteln
strNeu = strDatei
'    strDatum = FileDateTime(strDatei)
strDatum = Mid(strDatei, Len(strName) + 1, 8)
Do
strDatei = Dir
If strDatei = "" Then Exit Do
'If strDatum  "" Then
VBA.Kill strVerzeichnis & "\Kundenstammdaten.xlsx"
End If
'neue Datei als Stammdatendatei kopieren
VBA.FileCopy strVerzeichnis & "\" & strNeu, strVerzeichnis & "\Kundenstammdaten.xlsx"
'neue Datei mit Datum-Zeit-Stempel löschen
If strVerzeichnis & "\" & strNeu  "" Then
VBA.Kill strVerzeichnis & "\" & strNeu
End If
End If
'Arbeitsmappe schließen
ActiveWorkbook.Close SaveChanges:=False
End Sub