Status Bar text


P

pb

Is there any way to save the current "text" that is displayed on the
status bar. I need to save it, display another message while a
procedure is running, then when the procedure is done, restore the
original text. Thanks for any help.
-pb
 
Ad

Advertisements

M

merjet

Sub macro1()
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient..."
' do something else
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub
 
P

pb

Merjet,
Thanks. I had seen something like that somewhere else, but it does
NOT do what I need. After some trial & error I managed to get it to
work. You need to change the first line to "oldStatusBar =
Application.StatusBar" (remove the Display).
-pb
 
Ad

Advertisements

M

merjet

Merjet,
Thanks.  I had seen something like that somewhere else, but it does
NOT do what I need.  After some trial & error I managed to get it to
work.  You need to change the first line to "oldStatusBar =
Application.StatusBar" (remove the Display).
-pb

Heh. I copied the code from Excel Help.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top