WorkbookBeforeSave

[Guest]

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!

 

[Bob Phillips]

It doesn't go in a standard code module, it should be added to the
ThisWorkbook module.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

Thanks!!!

It doesn't go in a standard code module, it should be added to the
ThisWorkbook module.

--

HTH

RP
(remove nothere from the email address if mailing direct)