This acts a toggle to show/hide the Status Bar.

Sub ToggleStatusBar()
Application.DisplayStatusBar = Not Application.DisplayStatusBar
End Sub