Application VisualBasic Script

Private Sub ResetCommandBar() 
    Application.CommandBars("Worksheet Menu Bar").Reset 
End Sub