Message Box on Close

thedeadzeds · #1 05-10-2013, 08:28 AM

Hi All,

I have the following code which works great. However, I want to adapt it so if the message box is clicked 'No' Then the document DOES NOT close. Is this possible?

Thanks

Code:

Private Sub Document_Close()
Dim orng As Word.Range
Dim ofld As FormFields
Set orng = ActiveDocument.Range
Set ofld = orng.FormFields
For i = 1 To ofld.Count
  ofld(i).Select
  If ofld(i).Name = "Home_Attempt_1_Date" Then
    If ofld(i).Result = "N/A" Then
      MsgBox ofld(i).Name & " is N/A, ", vbYesNoCancel
      Exit Sub
    End If
  End If
Next i
ActiveDocument.Close
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Close 'downloads' window with VBA	CatMan	Excel Programming	6	12-14-2012 01:34 PM
EXCEL tries to close a file	userman	Excel	2	05-31-2012 03:15 AM
Message replys are shown at the bottom of the message, how can I get them to the top	Gardy	Outlook	3	05-23-2012 01:20 AM
Prompt when close the document	ubns	Word	15	04-29-2012 10:07 PM
Is there an exit on close ?	mhdadmh	Word	0	10-12-2006 04:28 PM