' ----------------------------------------------------------------
' Procedure Name: ToggleRibbon
' Purpose: Toggle the visibilty of the Excel ribbon and menu bars
' Procedure Kind: Sub
' Procedure Access: Public
' Author: sb172a
' Date: 7/11/2018
' ----------------------------------------------------------------
Sub ToggleRibbon()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & CStr(Not Application.CommandBars("Ribbon").Visible) & ")"
End Sub