I screwed up that copy/paste didn't I?

From the Help file: XL2000 (this does not work in XL97)

StatusBar Property Example

This example sets the status bar text to "Please be patient..." before it
opens the workbook Large.xls, and then it restores the default text.

oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient..."
Workbooks.Open filename:="LARGE.XLS"
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBarStatusBar


Mike F
"Mike Fogleman" wrote in message
...
From the Help file: XL2000 (this does not work in XL97)

StatusBar Property Example

This example sets the status bar text to "Please be patient..." before it
opens the workbook Large.xls, and then it restores the default text.

oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient..."
Workbooks.Open filename:="LARGE.XLS"
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBarStatusBar Property ExampleThis
example sets the status bar text to "Please be patient..." before it opens
the workbook Large.xls, and then it restores the default text.oldStatusBar
= Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient..."
Workbooks.Open filename:="LARGE.XLS"
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBarMike F"Karoo News"
wrote in message
...

I have forgotten how to do this and Help does not solve this problem.

All I need to know is how to Reset the statusbar to normal when a wokbook
closes or deactivates. (The open workbook has its own message when
activated)

Many Thanks
Neil