Hide Ribbon and Formula Bar

This toggles between being able to view only the sheet and being able to view the sheet along with the ribbon, formula bar, grid lines, row and column headers etc

Code:

---

Sub ToggleVisibility()
   
    Dim blnShow As Boolean
    blnShow = Application.DisplayFullScreen
   
    With Application
        .DisplayFullScreen = Not blnShow
        .DisplayStatusBar = blnShow
    End With
   
    With ActiveWindow
        .DisplayVerticalScrollBar = blnShow
        .DisplayHorizontalScrollBar = blnShow
        .DisplayWorkbookTabs = blnShow
        .DisplayRuler = blnShow
        .DisplayGridlines = blnShow
        .DisplayHeadings = blnShow
    End With
   
End Sub

---