Schrift Leiste

Function Change_Control_State()
'(C) Ramses
Dim i As Long
Dim myCmdBar As CommandBar, myCnt As CommandBarControl
Set myCmdBar = Application.CommandBars("Worksheet Menu Bar")
For Each myCnt In myCmdBar.Controls
myCnt.Enabled = Not myCnt.Enabled
Next
End Function

Sub Leiste_Raus()
Application.DisplayFullScreen = True
Change_Control_State
End Sub

Sub Leiste_Rein()
Application.DisplayFullScreen = False
End Sub

Das Problem, wenn ich Leiste raus aktiviere und ausversehen das Button nochmal drücke werden die Beschriftungen wieder eingeblendet, kann man dies nicht verhindern ?
Mit einer Wenn Abfrage ?
So geht es nicht :

Sub Schrift_Aus()
Application.DisplayFullScreen = True            'alles entfernen
Change_Control_State                            'Schrift in Leiste Ausblenden
If Change_Control_State = False Then
Exit Sub
End If
End Sub

mfg Walter MG