Permalink
Browse files

Remove obsolete coding for menu #4

  • Loading branch information...
RainerWinkler committed Apr 20, 2018
1 parent 72c70a5 commit d78ecd8da04657ebbc10639b899e8652a7227cf2
Showing with 5 additions and 0 deletions.
  1. +5 −0 RequirementFunctions.bas
@@ -287,6 +287,8 @@ Sub NeuesMenue()
' Rainer Winkler 13.03.2012
' Menu setzen
' This may now be obsolete as the new Excel menu versions do not have a classical menu anymore - Delete?
' Aus Monika Weber "Excel VBA"
Dim cb As CommandBar, cbc As CommandBarControl
Set cb = Application.CommandBars("Worksheet Menu Bar")
@@ -339,6 +341,9 @@ End Sub
Sub NeuesMenueLoeschen()
' Rainer Winkler 13.03.2012
' This may now be obsolete as the new Excel menu versions do not have a classical menu anymore - Delete?
' Aus Monika Weber "Excel VBA"
Dim cbc As CommandBarControl
For Each cbc In Application.CommandBars("Worksheet Menu Bar").Controls

0 comments on commit d78ecd8

Please sign in to comment.