Makro ausführen bevor gespeichert wird

ich will mit nachfolgendem Code ein Makro ausführen lassen, bevor eine Mappe gespeichert wird. Das funktioniert aber nicht, bzw. das Makro wird nicht ausgeführt.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call admin_aus
End Sub

Wo hab ich denn jetzt meinen Denkfehler?

Patrick