Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.excel.programming > #110983

Re: Using the red X (Upper right hand corner) for another purpose.

Show all headers | View raw

Thank you. I did not think of that.  The code works, however, 2 things
occur. 1). The msgBox occurs 2x. 2) The workbook closes, but not the
application. The same thing happens when the exit button is clicked &
call "Exit_Referrals" is present.  If "Call Exit_Referrals" is not
present, the msgbox appears 1x, and both the workbook & application
close without any problem.   I have tried to find a solution, but have
not been successful. 
Here is the current code:


Option Explicit

Sub Exit_Referrals()
Dim MsgBoxResult As Long

MsgBoxResult = MsgBox("Would you like to Exit the Referral Workbook?" &
vbCr, _
vbYesNo, "Voc. Rehab. - Referral")
If MsgBoxResult = vbNo Then
Exit Sub
ElseIf MsgBoxResult = vbYes Then
Sheets("TOC").Select
Application.Calculation = xlCalculationAutomatic
Application.Quit
ThisWorkbook.Close SaveChanges:=True
End If
End Sub




-- 
FrancisM

Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.1752ea28@excelbanter.com> - 2019-06-21 19:57 +0100
  Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-22 22:28 -0400
    Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.17566e28@excelbanter.com> - 2019-06-24 12:48 +0100
      Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.17567c38@excelbanter.com> - 2019-06-24 13:20 +0100
        Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-24 13:52 -0400
          Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.1756dea8@excelbanter.com> - 2019-06-24 20:08 +0100
            Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-24 16:16 -0400
              Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.1757bfa8@excelbanter.com> - 2019-06-25 12:23 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.1757f7e8@excelbanter.com> - 2019-06-25 15:54 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.17596589@excelbanter.com> - 2019-06-26 18:32 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-26 16:36 -0400
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.175a62a8@excelbanter.com> - 2019-06-27 12:07 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-27 12:37 -0400
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.175ab708@excelbanter.com> - 2019-06-27 17:59 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.175bb428@excelbanter.com> - 2019-06-28 12:32 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-28 12:16 -0400
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.175c0888@excelbanter.com> - 2019-06-28 18:28 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-28 15:00 -0400
                Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-28 15:30 -0400
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.175fa8a8@excelbanter.com> - 2019-07-01 12:07 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-07-01 08:09 -0400
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.17614078@excelbanter.com> - 2019-07-02 17:26 +0100

csiph-web