Laufzeitfehler '429"

Private Sub Workbook_Open und 

Private Sub Workbook_BeforeClose(Cancel As Boolean) nicht mehr ausgeführt. Diese stehen in " _
DieseArbeitsmappe" und haben bis vor kurzem noch funktioniert. Wenn ich in den Code gehe und F5 drücke erscheint : Laufzeitfehler '429': Objekterstellung durch ActiveX-Komponente nicht möglich. Wie gesagt, diese haben perfekt funktioniert, Wie kann ich diese wieder zum laufen bekommen?
Im Netz habe ich auch bereits recherchiert und bin aufgrund meiner nicht ausreichenden VBA  _
Kenntnisse daraus nicht schlau geworden, Vielen Dank für Eure Hilfe.
Option Explicit

Private Sub Workbook_Open()
ActiveWorkbook.Sheets("Start").Activate
Sheets("Tabelle1").Range("B42") = Environ$("USERNAME")
MsgBox Sheets("Tabelle1").Range("B43"), vbOKOnly, "Created by ... ©"
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Vielen Dank für die Nutzung dieses Tools.", vbOKOnly, "Designed by ..."
End Sub