Sub ToggleGridlines() ' Toggles gridlines for the active window ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines End Sub Ae: Dil Hai Mushkil Af Somali Verified
Sub DeleteMenu() ' Safely remove the menu On Error Resume Next CommandBars(1).Controls(MenuName).Delete On Error GoTo 0 End Sub Paste this below the menu code in the same Module. Kazoku Haha To Shimai No Kyousei: Webrip 1080p Top
Sub Auto_Open() ' Creates the menu item when Excel starts Call CreateMenu End Sub
Sub Auto_Close() ' Removes the menu item when Excel closes Call DeleteMenu End Sub
End Sub
Sub CreateMenu() Dim HelpMenu As CommandBarControl Dim NewMenu As CommandBarPopup Dim MenuItem As CommandBarControl Dim SubMenuItem As CommandBarButton ' Delete the menu if it already exists Call DeleteMenu ' Find the Help Menu position to insert before it Set HelpMenu = CommandBars(1).FindControl(ID:=30010) ' ID for Help ' Create the main menu popup Set NewMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, Before:=HelpMenu.Index, Temporary:=True) NewMenu.Caption = MenuName ' --- ADD MENU ITEMS --- ' 1. Toggle Gridlines Set MenuItem = NewMenu.Controls.Add(Type:=msoControlButton) With MenuItem .Caption = "Toggle Gridlines" .OnAction = "ToggleGridlines" .FaceId = 364 ' Icon for grid End With ' 2. Sheet Protection Tools Set MenuItem = NewMenu.Controls.Add(Type:=msoControlPopup) MenuItem.Caption = "Protection Tools" ' Sub-item: Protect All Set SubMenuItem = MenuItem.Controls.Add(Type:=msoControlButton) SubMenuItem.Caption = "Protect All Sheets" SubMenuItem.OnAction = "ProtectAllSheets" ' Sub-item: Unprotect All Set SubMenuItem = MenuItem.Controls.Add(Type:=msoControlButton) SubMenuItem.Caption = "Unprotect All Sheets" SubMenuItem.OnAction = "UnprotectAllSheets" ' 3. Case Changer Set MenuItem = NewMenu.Controls.Add(Type:=msoControlButton) With MenuItem .Caption = "Change Case to UPPERCASE" .OnAction = "ChangeCaseUpper" End With ' 4. Insert Row (A common utility) Set MenuItem = NewMenu.Controls.Add(Type:=msoControlButton) With MenuItem .Caption = "Insert Row After Selection" .OnAction = "InsertRowAtSelection" End With