Sub ShowHideStatusBar()
'
' Show/hide status bar macro
'
' Christian Gould,
' [email protected]
If CommandBars("Status Bar").Visible = False Then
CommandBars("Status Bar").Visible = True
ElseIf CommandBars("Status Bar").Visible = True Then
CommandBars("Status Bar").Visible = False
End If
End Sub