Microsoft gives this example for the BeforeSave Event:

Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub

I copied this into the Module 2. No Message Box appears when I save. What
am I doing wrong?

Thanks in advance!