I would like to get a MsgBox pop up to alert the user to a condition without
pausing or stopping the execution of the program. The MsgBox would have the
information and a button to close.

On Fri, 6 Feb 2009 22:28:01 -0800, Gum wrote:

I would like to get a MsgBox pop up to alert the user to a condition without
pausing or stopping the execution of the program. The MsgBox would have the
information and a button to close.

I'm pretty sure a MsgBox is modal.

What I'd do is design a Form to emulate a message box. That should do
the job nicely.

Cheers - Kirk

Gum;218173 Wrote:
I would like to get a MsgBox pop up to alert the user to a condition
without
pausing or stopping the execution of the program. The MsgBox would
have the
information and a button to close.

I Doubt it, is the condition the progress of the running macro?


--
Stringer
------------------------------------------------------------------------
Stringer's Profile: http://www.thecodecage.com/forumz/member.php?userid=117
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=59957

I take the easy route and use:

Application.statusbar = "some important notice here"
....

And at the end of the code:

application.statusbar = false

To give it back to excel.

Gum wrote:

I would like to get a MsgBox pop up to alert the user to a condition without
pausing or stopping the execution of the program. The MsgBox would have the
information and a button to close.

--

Dave Peterson

?B?R3Vt?= wrote in
:

I would like to get a MsgBox pop up to alert the user to a condition
without pausing or stopping the execution of the program. The MsgBox
would have the information and a button to close.

Play with these. :-)

Sub CheckMessage()
Debug.Print Now
BriefMessage "This is the Message", 2, "This is the Title"
Debug.Print Now
BriefMessage "This is the Message", 4
Debug.Print Now
End Sub

Sub BriefMessage(strMessage, intSeconds, _
Optional strTitle As String)
If Len(Nz(strTitle, "")) = 0 Then
strTitle = "Closes in " & CStr(intSeconds) & " Seconds"
End If
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
wsh.PopUp strMessage, intSeconds, strTitle
Set wsh = Nothing
End Sub

Cheers,
Alan Forsyth