WorkbookBeforeSave - Problem

Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
if fehler <> 0 then
MsgBox "Aufgrund der Fehlereingaben kann die Mappe nicht gespeichert werden! Bitte korrigieren!"
Cancel = True
end if
End 

Sub
Damit möchte ich erreichen, dass das Arbeitsblatt nicht gespeichert werden darf, wenn Eingabefehler bei Plausiprüfung aufgetreten und nicht korrigiert worden sind.
Diese Prozedur habe ich im Klassenmodul "Diese Arbeitsmappe" kopiert.
Die Variable "fehler" wird im Submakro "

Sub Worksheet_Change(ByVal Target As Range)" angesprochen. Dieses Makro befindet sich in "Tabelle1".
Das Problem bei mir ist, dass "App_WorkbookBeforeSave" gar nicht angesprochen wird.
Habe ich dieses 

Sub falsch platziert, oder?
Gruss
Tobias