Excel-Workbook schliesst selbsttätig

ich habe das Problem, dass Excel nach dem Einfügen eines Kommentars über ein Formular, die Mappe selbsttätig schliesst. Wieso?

Programm-Code :

Sub kommentar_einfügen()
zeile = ActiveCell.Row
kommentar.Show 'Kommentar istr der Name des Formulars
End Sub

Private Sub Kommentarfeld_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Text = "" 'Textfeld frei machen
End Sub

Private Sub OK_Click()
kommentartext = kommentar.Kommentarfeld.Text
ActiveCell.AddComment (kommentartext)
kommentar.Hide
End Sub