MsgBox-at the end a msgBox popup

I have a macro that run every 30 minute and at the end a msgBox popup show up
to say "I'll be back in Half hour BUT show up with a button "OK" and I
need press that button in order to run a macro again .

MY QUESTION IS THIS : Is it possible a msgbox popup and disappear , let
say 5 seconds later without human intervention ???

Thank in advance
Cc

Instead of a msgbox, call up a form with that same message on it. Then
you can display the message for a few seconds and close it.

Dim cTime As Long
Dim WSH As Object

Set WSH = CreateObject("WScript.Shell")
cTime = 10 ' 10 secs
Select Case WSH.Popup("Open an Excel file?!", cTime, "Question",
vbOKCancel)
Case vbOK
MsgBox "You clicked OK"
Case vbCancel
MsgBox "You clicked Cancel"
Case -1
MsgBox "Timed out"
Case Else
End Select


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"CC" <[email protected]> wrote in message
news:[email protected]...
> I have a macro that run every 30 minute and at the end a msgBox popup show
up
> to say "I'll be back in Half hour BUT show up with a button "OK" and I
> need press that button in order to run a macro again .
>
> MY QUESTION IS THIS : Is it possible a msgbox popup and disappear , let
> say 5 seconds later without human intervention ???
>
> Thank in advance
> Cc

Now I have the message "TIME OUT " That need to Click OO

"Bob Phillips" wrote:

> Dim cTime As Long
> Dim WSH As Object
>
> Set WSH = CreateObject("WScript.Shell")
> cTime = 10 ' 10 secs
> Select Case WSH.Popup("Open an Excel file?!", cTime, "Question",
> vbOKCancel)
> Case vbOK
> MsgBox "You clicked OK"
> Case vbCancel
> MsgBox "You clicked Cancel"
> Case -1
> MsgBox "Timed out"
> Case Else
> End Select
>
>
> --
> HTH
>
> Bob Phillips
>
> (remove xxx from email address if mailing direct)
>
> "CC" <[email protected]> wrote in message
> news:[email protected]...
> > I have a macro that run every 30 minute and at the end a msgBox popup show
> up
> > to say "I'll be back in Half hour BUT show up with a button "OK" and I
> > need press that button in order to run a macro again .
> >
> > MY QUESTION IS THIS : Is it possible a msgbox popup and disappear , let
> > say 5 seconds later without human intervention ???
> >
> > Thank in advance
> > Cc
>
>
>

The lines with MsgBox in Bob's code are just placeholders. You'll want to
replace them with what you want to happen in each situation.



CC wrote:
>
> Now I have the message "TIME OUT " That need to Click OO
>
> "Bob Phillips" wrote:
>
> > Dim cTime As Long
> > Dim WSH As Object
> >
> > Set WSH = CreateObject("WScript.Shell")
> > cTime = 10 ' 10 secs
> > Select Case WSH.Popup("Open an Excel file?!", cTime, "Question",
> > vbOKCancel)
> > Case vbOK
> > MsgBox "You clicked OK"
> > Case vbCancel
> > MsgBox "You clicked Cancel"
> > Case -1
> > MsgBox "Timed out"
> > Case Else
> > End Select
> >
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > (remove xxx from email address if mailing direct)
> >
> > "CC" <[email protected]> wrote in message
> > news:[email protected]...
> > > I have a macro that run every 30 minute and at the end a msgBox popup show
> > up
> > > to say "I'll be back in Half hour BUT show up with a button "OK" and I
> > > need press that button in order to run a macro again .
> > >
> > > MY QUESTION IS THIS : Is it possible a msgbox popup and disappear , let
> > > say 5 seconds later without human intervention ???
> > >
> > > Thank in advance
> > > Cc
> >
> >
> >

--

Dave Peterson