How can I display a message while a macro is running and then have the
message automatically stop displaying when the macro completes.
Example: "Please wait while the list is updating."
I've tried MsgBox but this seems to require a user to click on "OK".
Thank you.
Dave

Have you tried using

Application.StatusBar = "Please wait while the list is updating."

And
Application.StatusBar = FALSE

to Turn off.
--
HTH,
Barb Reinhardt

If this post was helpful to you, please click YES below.



"Bassman62" wrote:

> How can I display a message while a macro is running and then have the
> message automatically stop displaying when the macro completes.
> Example: "Please wait while the list is updating."
> I've tried MsgBox but this seems to require a user to click on "OK".
> Thank you.
> Dave

Consider:

Sub Macro1()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 255#, 99.75, _
202.5, 96#).Select
Selection.Name = "waitabit"
Selection.Characters.Text = "PLEASE WAIT"
Range("H5").Select
Application.Wait Now() + TimeValue("00:00:02")
ActiveSheet.Shapes("waitabit").Select
Selection.Cut
End Sub

--
Gary''s Student - gsnu200812


"Bassman62" wrote:

> How can I display a message while a macro is running and then have the
> message automatically stop displaying when the macro completes.
> Example: "Please wait while the list is updating."
> I've tried MsgBox but this seems to require a user to click on "OK".
> Thank you.
> Dave

"Gary''s Student" wrote:

> Consider:
>
> Sub Macro1()
> ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 255#, 99.75, _
> 202.5, 96#).Select
> Selection.Name = "waitabit"
> Selection.Characters.Text = "PLEASE WAIT"
> Range("H5").Select
> Application.Wait Now() + TimeValue("00:00:02")
> ActiveSheet.Shapes("waitabit").Select
> Selection.Cut
> End Sub
>
> --
> Gary''s Student - gsnu200812
>
>
> "Bassman62" wrote:
>
> > How can I display a message while a macro is running and then have the
> > message automatically stop displaying when the macro completes.
> > Example: "Please wait while the list is updating."
> > I've tried MsgBox but this seems to require a user to click on "OK".
> > Thank you.
> > Dave

Sorry. My last reply did not display my text.
-
Thank you for your suggestion.
I accoumplished my goal by calling Macro1 from my main macro but did not
include the "Wait" or "Cut" lines.
I then "Cut" the shape at the end of my main macro.
Thanks again.

Dave

"Gary''s Student" wrote:

> Consider:
>
> Sub Macro1()
> ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 255#, 99.75, _
> 202.5, 96#).Select
> Selection.Name = "waitabit"
> Selection.Characters.Text = "PLEASE WAIT"
> Range("H5").Select
> Application.Wait Now() + TimeValue("00:00:02")
> ActiveSheet.Shapes("waitabit").Select
> Selection.Cut
> End Sub
>
> --
> Gary''s Student - gsnu200812
>
>
> "Bassman62" wrote:
>
> > How can I display a message while a macro is running and then have the
> > message automatically stop displaying when the macro completes.
> > Example: "Please wait while the list is updating."
> > I've tried MsgBox but this seems to require a user to click on "OK".
> > Thank you.
> > Dave

Sounds like a good approach
--
Gary''s Student - gsnu200812


"Bassman62" wrote:

> Sorry. My last reply did not display my text.
> -
> Thank you for your suggestion.
> I accoumplished my goal by calling Macro1 from my main macro but did not
> include the "Wait" or "Cut" lines.
> I then "Cut" the shape at the end of my main macro.
> Thanks again.
>
> Dave
>
> "Gary''s Student" wrote:
>
> > Consider:
> >
> > Sub Macro1()
> > ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 255#, 99.75, _
> > 202.5, 96#).Select
> > Selection.Name = "waitabit"
> > Selection.Characters.Text = "PLEASE WAIT"
> > Range("H5").Select
> > Application.Wait Now() + TimeValue("00:00:02")
> > ActiveSheet.Shapes("waitabit").Select
> > Selection.Cut
> > End Sub
> >
> > --
> > Gary''s Student - gsnu200812
> >
> >
> > "Bassman62" wrote:
> >
> > > How can I display a message while a macro is running and then have the
> > > message automatically stop displaying when the macro completes.
> > > Example: "Please wait while the list is updating."
> > > I've tried MsgBox but this seems to require a user to click on "OK".
> > > Thank you.
> > > Dave