WorkbookBeforeClose funktioniert nicht

kann mir einer sagen wieso das bei nicht funktioniert ??

Private Sub App_WorkbookBeforeClose(ByVal Wb as Workbook, Cancel as Boolean)
a = MsgBox("Do you really want to close the workbook?",vbYesNo)
If a = vbNo Then Cancel = True
End Sub

Danke