Message Box before File Exit in Excel

[Craig13_13]

Hi all

I am trying to write a message box that appears when 'Close' or 'Exit' is hit in an Excel file. Basically its to serve a reminder function of 'Have you done this before you close this file'.

Any help much appreciated!

Thanks
Craig

 

[VoG]

Try this in the ThisWorkbook module

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ans As VbMsgBoxResult
ans = MsgBox("Are you sure you have done everything", vbYesNo + vbQuestion)
If ans = vbNo Then Cancel = True
End Sub

 

[Craig13_13]

Spot on! Thank you!