I make use of a msgbox with Yes/No buttons fairly frequently, like:

answer = msgbox("Do you want to proceed?", vbyesno)

After clicking on the desired button the message box window remains
open. Is there a way to force closing this window as soon as the
variable is read?


John Keith
(E-Mail Removed)

Is this a message box that was created with a UserForm? The standard
message box automatically closes when a button is clicked. If it is the
standard message box and is not closing, there could be a software problem
in your system. Is this in Excel, if so, what version.


"John Keith" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>I make use of a msgbox with Yes/No buttons fairly frequently, like:
>
> answer = msgbox("Do you want to proceed?", vbyesno)
>
> After clicking on the desired button the message box window remains
> open. Is there a way to force closing this window as soon as the
> variable is read?
>
>
> John Keith
> (E-Mail Removed)

>Is this a message box that was created with a UserForm?

No

> The standard message box automatically closes when a button is clicked. If it is the
>standard message box and is not closing, there could be a software problem
>in your system. Is this in Excel, if so, what version.

Excel 2007/WinXP

The message box window stays open until the next msgbox command is
executed.

I also just tried the following

msgbox("Test")
for i =1 to 100000000
a=1
next i
msgbox("done")

The loop has not completed yet and the first message box is still
open.





John Keith
(E-Mail Removed)

What you describe cannot and occur. I very much doubt you actually tested
the code you posted as an example, at least not exactly as written and with
nothing else.

My guess is you are showing the msgbox with screenupdating disabled. The
msgbox will stay on the screen indefinitely until the screen is refreshed
(even DoEvents) or by re-enabling screenupdating.

Be sure to temporarily disable screenupdating if/as necessary when showing a
msgbox.

Regards,
Peter T

The only thing that
"John Keith" <(E-Mail Removed)> wrote in message
news(E-Mail Removed)...
> >Is this a message box that was created with a UserForm?
>
> No
>
>> The standard message box automatically closes when a button is clicked.
>> If it is the
>>standard message box and is not closing, there could be a software problem
>>in your system. Is this in Excel, if so, what version.
>
> Excel 2007/WinXP
>
> The message box window stays open until the next msgbox command is
> executed.
>
> I also just tried the following
>
> msgbox("Test")
> for i =1 to 100000000
> a=1
> next i
> msgbox("done")
>
> The loop has not completed yet and the first message box is still
> open.
>
>
>
>
>
> John Keith
> (E-Mail Removed)

I can't duplicate the problem in xl2003, but it sounds like a software
glitch to me. The standard message box is designed to close immediately
upon execution of a button. Unless xl2007 has an option to open the message
box as modeless, I cannot offer any explanation for the behavior.




"John Keith" <(E-Mail Removed)> wrote in message
news(E-Mail Removed)...
> >Is this a message box that was created with a UserForm?
>
> No
>
>> The standard message box automatically closes when a button is clicked.
>> If it is the
>>standard message box and is not closing, there could be a software problem
>>in your system. Is this in Excel, if so, what version.
>
> Excel 2007/WinXP
>
> The message box window stays open until the next msgbox command is
> executed.
>
> I also just tried the following
>
> msgbox("Test")
> for i =1 to 100000000
> a=1
> next i
> msgbox("done")
>
> The loop has not completed yet and the first message box is still
> open.
>
>
>
>
>
> John Keith
> (E-Mail Removed)

Hi Peter, In the version of xl03 that I am running, the msgbox goes away,
whether or not ScreenUpdating is enabled. Is it different in xl07 + ?


"Peter T" <peter_t@discussions> wrote in message
news:(E-Mail Removed)...
> What you describe cannot and occur. I very much doubt you actually tested
> the code you posted as an example, at least not exactly as written and
> with nothing else.
>
> My guess is you are showing the msgbox with screenupdating disabled. The
> msgbox will stay on the screen indefinitely until the screen is refreshed
> (even DoEvents) or by re-enabling screenupdating.
>
> Be sure to temporarily disable screenupdating if/as necessary when showing
> a msgbox.
>
> Regards,
> Peter T
>
> The only thing that
> "John Keith" <(E-Mail Removed)> wrote in message
> news(E-Mail Removed)...
>> >Is this a message box that was created with a UserForm?
>>
>> No
>>
>>> The standard message box automatically closes when a button is clicked.
>>> If it is the
>>>standard message box and is not closing, there could be a software
>>>problem
>>>in your system. Is this in Excel, if so, what version.
>>
>> Excel 2007/WinXP
>>
>> The message box window stays open until the next msgbox command is
>> executed.
>>
>> I also just tried the following
>>
>> msgbox("Test")
>> for i =1 to 100000000
>> a=1
>> next i
>> msgbox("done")
>>
>> The loop has not completed yet and the first message box is still
>> open.
>>
>>
>>
>>
>>
>> John Keith
>> (E-Mail Removed)
>
>

Try this

Sub abc()
' run with alt-F8
Dim a

'Application.ScreenUpdating = False

MsgBox ("Move me away from the centre of the screen")

Application.ScreenUpdating = False
For i = 1 To 100
a = 1
Next i
MsgBox ("done")
Application.ScreenUpdating = True
End Sub

Regards,
Peter T


"JLGWhiz" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Hi Peter, In the version of xl03 that I am running, the msgbox goes
> away, whether or not ScreenUpdating is enabled. Is it different in xl07 +
> ?
>
>
> "Peter T" <peter_t@discussions> wrote in message
> news:(E-Mail Removed)...
>> What you describe cannot and occur. I very much doubt you actually tested
>> the code you posted as an example, at least not exactly as written and
>> with nothing else.
>>
>> My guess is you are showing the msgbox with screenupdating disabled. The
>> msgbox will stay on the screen indefinitely until the screen is refreshed
>> (even DoEvents) or by re-enabling screenupdating.
>>
>> Be sure to temporarily disable screenupdating if/as necessary when
>> showing a msgbox.
>>
>> Regards,
>> Peter T
>>
>> The only thing that
>> "John Keith" <(E-Mail Removed)> wrote in message
>> news(E-Mail Removed)...
>>> >Is this a message box that was created with a UserForm?
>>>
>>> No
>>>
>>>> The standard message box automatically closes when a button is clicked.
>>>> If it is the
>>>>standard message box and is not closing, there could be a software
>>>>problem
>>>>in your system. Is this in Excel, if so, what version.
>>>
>>> Excel 2007/WinXP
>>>
>>> The message box window stays open until the next msgbox command is
>>> executed.
>>>
>>> I also just tried the following
>>>
>>> msgbox("Test")
>>> for i =1 to 100000000
>>> a=1
>>> next i
>>> msgbox("done")
>>>
>>> The loop has not completed yet and the first message box is still
>>> open.
>>>
>>>
>>>
>>>
>>>
>>> John Keith
>>> (E-Mail Removed)
>>
>>
>
>

Forgot to mention I get same results in 2003 & 2007

Peter T

"Peter T" <peter_t@discussions> wrote in message
news:(E-Mail Removed)...
> Try this
>
> Sub abc()
> ' run with alt-F8
> Dim a
>
> 'Application.ScreenUpdating = False
>
> MsgBox ("Move me away from the centre of the screen")
>
> Application.ScreenUpdating = False
> For i = 1 To 100
> a = 1
> Next i
> MsgBox ("done")
> Application.ScreenUpdating = True
> End Sub
>
> Regards,
> Peter T
>
>
> "JLGWhiz" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
>> Hi Peter, In the version of xl03 that I am running, the msgbox goes
>> away, whether or not ScreenUpdating is enabled. Is it different in xl07
>> + ?
>>
>>
>> "Peter T" <peter_t@discussions> wrote in message
>> news:(E-Mail Removed)...
>>> What you describe cannot and occur. I very much doubt you actually
>>> tested the code you posted as an example, at least not exactly as
>>> written and with nothing else.
>>>
>>> My guess is you are showing the msgbox with screenupdating disabled. The
>>> msgbox will stay on the screen indefinitely until the screen is
>>> refreshed (even DoEvents) or by re-enabling screenupdating.
>>>
>>> Be sure to temporarily disable screenupdating if/as necessary when
>>> showing a msgbox.
>>>
>>> Regards,
>>> Peter T
>>>
>>> The only thing that
>>> "John Keith" <(E-Mail Removed)> wrote in message
>>> news(E-Mail Removed)...
>>>> >Is this a message box that was created with a UserForm?
>>>>
>>>> No
>>>>
>>>>> The standard message box automatically closes when a button is
>>>>> clicked. If it is the
>>>>>standard message box and is not closing, there could be a software
>>>>>problem
>>>>>in your system. Is this in Excel, if so, what version.
>>>>
>>>> Excel 2007/WinXP
>>>>
>>>> The message box window stays open until the next msgbox command is
>>>> executed.
>>>>
>>>> I also just tried the following
>>>>
>>>> msgbox("Test")
>>>> for i =1 to 100000000
>>>> a=1
>>>> next i
>>>> msgbox("done")
>>>>
>>>> The loop has not completed yet and the first message box is still
>>>> open.
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> John Keith
>>>> (E-Mail Removed)
>>>
>>>
>>
>>
>
>

Nope, As soon as I click the button, the shape dialog box disappears. I
cannot get it to remain on screen after the button is clicked and cannot get
any further code to process without clicking the button. I believe that is
the designed performance.



"Peter T" <peter_t@discussions> wrote in message
news:(E-Mail Removed)...
> Try this
>
> Sub abc()
> ' run with alt-F8
> Dim a
>
> 'Application.ScreenUpdating = False
>
> MsgBox ("Move me away from the centre of the screen")
>
> Application.ScreenUpdating = False
> For i = 1 To 100
> a = 1
> Next i
> MsgBox ("done")
> Application.ScreenUpdating = True
> End Sub
>
> Regards,
> Peter T
>
>
> "JLGWhiz" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
>> Hi Peter, In the version of xl03 that I am running, the msgbox goes
>> away, whether or not ScreenUpdating is enabled. Is it different in xl07
>> + ?
>>
>>
>> "Peter T" <peter_t@discussions> wrote in message
>> news:(E-Mail Removed)...
>>> What you describe cannot and occur. I very much doubt you actually
>>> tested the code you posted as an example, at least not exactly as
>>> written and with nothing else.
>>>
>>> My guess is you are showing the msgbox with screenupdating disabled. The
>>> msgbox will stay on the screen indefinitely until the screen is
>>> refreshed (even DoEvents) or by re-enabling screenupdating.
>>>
>>> Be sure to temporarily disable screenupdating if/as necessary when
>>> showing a msgbox.
>>>
>>> Regards,
>>> Peter T
>>>
>>> The only thing that
>>> "John Keith" <(E-Mail Removed)> wrote in message
>>> news(E-Mail Removed)...
>>>> >Is this a message box that was created with a UserForm?
>>>>
>>>> No
>>>>
>>>>> The standard message box automatically closes when a button is
>>>>> clicked. If it is the
>>>>>standard message box and is not closing, there could be a software
>>>>>problem
>>>>>in your system. Is this in Excel, if so, what version.
>>>>
>>>> Excel 2007/WinXP
>>>>
>>>> The message box window stays open until the next msgbox command is
>>>> executed.
>>>>
>>>> I also just tried the following
>>>>
>>>> msgbox("Test")
>>>> for i =1 to 100000000
>>>> a=1
>>>> next i
>>>> msgbox("done")
>>>>
>>>> The loop has not completed yet and the first message box is still
>>>> open.
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> John Keith
>>>> (E-Mail Removed)
>>>
>>>
>>
>>
>
>

Indeed it is normal behaviour for the code to be suspended until the msgbox
is dismissed. But are you saying with screenupdating disabled the "image" of
the msgbox completely disappears from the screen after clicking OK.

Regards,
Peter T

"JLGWhiz" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Nope, As soon as I click the button, the shape dialog box disappears. I
> cannot get it to remain on screen after the button is clicked and cannot
> get any further code to process without clicking the button. I believe
> that is the designed performance.
>
>
>
> "Peter T" <peter_t@discussions> wrote in message
> news:(E-Mail Removed)...
>> Try this
>>
>> Sub abc()
>> ' run with alt-F8
>> Dim a
>>
>> 'Application.ScreenUpdating = False
>>
>> MsgBox ("Move me away from the centre of the screen")
>>
>> Application.ScreenUpdating = False
>> For i = 1 To 100
>> a = 1
>> Next i
>> MsgBox ("done")
>> Application.ScreenUpdating = True
>> End Sub
>>
>> Regards,
>> Peter T
>>
>>
>> "JLGWhiz" <(E-Mail Removed)> wrote in message
>> news:%(E-Mail Removed)...
>>> Hi Peter, In the version of xl03 that I am running, the msgbox goes
>>> away, whether or not ScreenUpdating is enabled. Is it different in xl07
>>> + ?
>>>
>>>
>>> "Peter T" <peter_t@discussions> wrote in message
>>> news:(E-Mail Removed)...
>>>> What you describe cannot and occur. I very much doubt you actually
>>>> tested the code you posted as an example, at least not exactly as
>>>> written and with nothing else.
>>>>
>>>> My guess is you are showing the msgbox with screenupdating disabled.
>>>> The msgbox will stay on the screen indefinitely until the screen is
>>>> refreshed (even DoEvents) or by re-enabling screenupdating.
>>>>
>>>> Be sure to temporarily disable screenupdating if/as necessary when
>>>> showing a msgbox.
>>>>
>>>> Regards,
>>>> Peter T
>>>>
>>>> The only thing that
>>>> "John Keith" <(E-Mail Removed)> wrote in message
>>>> news(E-Mail Removed)...
>>>>> >Is this a message box that was created with a UserForm?
>>>>>
>>>>> No
>>>>>
>>>>>> The standard message box automatically closes when a button is
>>>>>> clicked. If it is the
>>>>>>standard message box and is not closing, there could be a software
>>>>>>problem
>>>>>>in your system. Is this in Excel, if so, what version.
>>>>>
>>>>> Excel 2007/WinXP
>>>>>
>>>>> The message box window stays open until the next msgbox command is
>>>>> executed.
>>>>>
>>>>> I also just tried the following
>>>>>
>>>>> msgbox("Test")
>>>>> for i =1 to 100000000
>>>>> a=1
>>>>> next i
>>>>> msgbox("done")
>>>>>
>>>>> The loop has not completed yet and the first message box is still
>>>>> open.
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> John Keith
>>>>> (E-Mail Removed)
>>>>
>>>>
>>>
>>>
>>
>>
>
>