BeforeClose with ActiveX-Elementen

Hallo Zusammen, ich bin am verzweifeln...

Mein BeforcClose Event wird nicht korrekt ausgeführt.
Wenn die Datei gespeichert wird und danach auf schliessen gedrückt wird, kommt nochmal einen Speicherdialog ob die Datei gespeichert werden soll.
Ich habe in einem anderen Modul den selben CODE eingefügt und dort funktioniert er einwandfrei.

Zuerst Dachte es läge an den ActiveX Elementen auf den Arbeitsblatt Besch. + Gel Schr, wenn ich diese ComboBoxen "Ja" entferne funktioniert es wieder
Lösche ich jedoch alles andere bis auf diese zwei Elemente funktioniert es jedoch auch. Die Datei Grösse von 3.39 MB stösst jedoch auch noch nicht an die
Grenze welche Microsoft veranschlagt hat von 10 MB. Die Speicherzeit auf dem Geschäfts-Server ist generell mit bis zu 3.8 sec sehr lange.
Lösche ich zwei beliebige ActiveX-Elemente funktioniert es wieder - welche scheinen keine Rolle zu Spielen.

Hätte jemand eine Idee wie das umgangen werden kann?
in der Suche nach der Anzahl der Maximal zulässige ActiveX Elemente pro Datei wurde ich leider nicht fündig.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.EnableEvents = False
    On Error Resume Next
    'Application.OnTime dtmNextTime, "Aktualisieren", , False
    
    Application.AskToUpdateLinks = True
    ThisWorkbook.UpdateLinks = xlUpdateLinksUserSetting

            'Call btn_Schliessen
        
            If ThisWorkbook.Saved = False Then
            MsgBox "Bitte die Datei zuerst speichern!"
            
            Else
            Application.DisplayAlerts = False
            ThisWorkbook.Close SaveChanges:=False
            Application.DisplayAlerts = True
            
            End If

Application.EnableEvents = True
    
    
    With Application
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
    .DisplayStatusBar = True
    .EnableEvents = True
    .DisplayAlerts = True
    End With

End Sub