In VBA fro Excel how can I create a AutoExit Code?

[wengang]

Da_Silvy
This looks like a useful piece of code. I am wondering if you know what to put in this sub to stop it from closing. I mean sth like the equivalent of "Exit Sub" in VB.

What I want to do should look like this:

If Worksheets("Sheet1").Cells("A1").Value <> "" Then
MsgBox("You have data in cell A1. The program can't close.")
Exit Sub ' stops the close
End If

Is that possible?

[da_silvy]

try this on for size:

in the editor, click on ThisWorkbook
then add this code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Sheets("Sheet1").Range("A1").Value <> "" Then
MsgBox ("You have data in cell A1. The program can't close.")
Cancel = True
End If
End Sub

How did that work?