Status Bar text

[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

 

[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

 

[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

 

[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.