Ereignis Workbook_BeforeClose

Private Sub Workbook_beforeclose(cancel as boolean)
on error goto err
application.enableevents=false
application.calculation=xlmanual
...
...
...
application.calculation=xlautomatic
Worksheets("1").select
application.screenupdating=true
activeworkbook.saved=true
exit sub
err:
msgbox Error(),,
end sub

Obwohl meine Ereignisse nicht aktiviert sind werden Sie durch das komplette Schliessen von Excel ausgelöst (zB Combobox_change) und zwar in der Zeile exit sub!?
Schliesse ich hingegen nur die Datei und lasse Excel geöffnet werden die Ereignisse wunschgemäß nicht ausgelöst.

Hat jemand eine Idee?
vielen Dank im voraus
wolfgang