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!

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)


"CinqueTerra" wrote in message
...
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!

Thanks!!!

"Bob Phillips" wrote:

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)


"CinqueTerra" wrote in message
...
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!