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(msoTextOrientationHo rizontal, 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(msoTextOrientationHo rizontal, 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(msoTextOrientationHo rizontal, 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(msoTextOrientationHo rizontal, 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