Private Sub Form_Unload(Cancel As Integer) If <condition> Then Cancel = 1 End If End Sub
Select allOpen in new window
Open in new window