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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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