The Andrew N. Wiggins Consultancy

Contact me at webmaster@anw.biz

Experimental Site

This site designed by Byg Software Ltd

023

The first hides the bar, the second toggles the current state.

Sub HideWorksheetMenuBar1()
CommandBars("Worksheet Menu Bar").Enabled = False  '' or True to display
End Sub

Sub HideWorksheetMenuBar2()
With CommandBars("Worksheet Menu Bar")
.Enabled = Not .Enabled
End With
End Sub