B Bob Phillips Jul 17, 2006 #2 Dim oStatusBar oStatusBar = Application.DisplayStatusBar Application.DisplayStatusBar = True Application.StatusBar = "Please be patient..." MsgBox "Break to demonstrate" Application.StatusBar = False Application.DisplayStatusBar = oStatusBar -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct)
Dim oStatusBar oStatusBar = Application.DisplayStatusBar Application.DisplayStatusBar = True Application.StatusBar = "Please be patient..." MsgBox "Break to demonstrate" Application.StatusBar = False Application.DisplayStatusBar = oStatusBar -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct)