Create a toggle button with If Statement

[hamistasty]

I'm wanting to create a macro that acts as a toggle button but isn't an actual toggle button

This is what happens when the file opens:

Private Sub Workbook_Open()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
 
 
    Public toggle As Long
    Set toggle = 1
End Sub

This is the button (module) code:

Public Sub UnHideNavPane()
 
    If toggle = 1 Then
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    Set toggle = 0
 
    ElseIf toggle = 0 Then
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
    Set toggle = 1
 
    Else
 
    End If
End Sub

The error is that toggle isn't defined. What am I doing wrong?

 

[Jaafar Tribak]

Maybe this :

Public Sub UnHideNavPane()

    Dim bVisible As Boolean
    
    bVisible = Not Application.CommandBars("Ribbon").Visible
    
    With Application
        .DisplayFormulaBar = bVisible
        .DisplayStatusBar = bVisible
        .ExecuteExcel4Macro ("SHOW.TOOLBAR(""Ribbon""," & bVisible & ")")
    End With
    
End Sub

 

[hamistasty]

Thanks works great you're a legend.