Message box when closing excel file

[trpltwo]

Hi all, thank you in advance for your help.

I want to a pop up message box that when I try to press exit the excel file, if sheet1 cell A1 is >0 then msg box to pop up "did you include this figure in your report because its a positive figure" and option button is "yes" or "no". I need to do anything for yes or no, because it's more of a reminder that if cell A1 is >0, I need to do something. But if it's not greater than 0 just exit without msg box.

thanks!

 

[DanteAmor]

Try this in ThisWorkbook EVENT:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Sheets("Sheet1").Range("A1").Value > 0 Then
    Dim res As VbMsgBoxResult
    res = MsgBox("did you include this figure in your report because its a positive figure", vbYesNo)
    If res = vbYes Then
      'some
    Else
      'some else
    End If
  End If
End Sub

ThisWorkbook EVENT
- Open the VB Editor (press Alt + F11).
- Over in the Project Explorer, double click on ThisWorkbook.
- In the white panel that then appears, paste the above code.

 

[trpltwo]

Try this in ThisWorkbook EVENT:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Sheets("Sheet1").Range("A1").Value > 0 Then
    Dim res As VbMsgBoxResult
    res = MsgBox("did you include this figure in your report because its a positive figure", vbYesNo)
    If res = vbYes Then
      'some
    Else
      'some else
    End If
  End If
End Sub

ThisWorkbook EVENT
- Open the VB Editor (press Alt + F11).
- Over in the Project Explorer, double click on ThisWorkbook.
- In the white panel that then appears, paste the above code.

Thank you very much! works perfectly!