Beforeclose does not work

[JohnWood]

Hello all,

I have the following code in a module and it does not display the message or save the workbook before closing it.What i am doing wrong?!

Thank you in advance.

Public Sub Workbook_BeforeClose()





MsgBox "Save"
ThisWorkbook.Save





End Sub

 

[Scott T]

Did you put this in the thisworkbook module? If not move it there.

 

[BigDawg15]

JohnWood,

Public Sub Workbook_BeforeClose()

Thisworkbook.Save
MsgBox "Workbook Saved"

End Sub