Reset Sheet Tab Context Menu Help

[t0ny84]

Hi All,
Whilst helping another user with adding additional menus to their context menu (right click menu) in Excel I had added some additional menus to mine but thought I had cleared them all. When I just opened Excel I noticed on the Sheet Tab Context Menu the extra options still show. I was wondering if anyone knows how to reset this Sheet Tab Context Menu? I was able to reset all my other menus using the below code but they aren't working on the Sheet Tab Context Menu. I also found an add-in Menu Righter which removed it but when Excel was restarted they were back.

Application.CommandBars("Cell").Reset
Application.CommandBars("cell").Enabled = True
Application.CommandBars("Column").Reset
Application.CommandBars("column").Enabled = True
Application.CommandBars("Row").Reset
Application.CommandBars("row").Enabled = True

MenuRighter

MenuRighter – Excel 2010 and Later MenuRighter is an Excel addin that lets you modify right-click menus. You can add almost any control found in other right-click menus or Excel 2003’s …

yoursumbuddy.com

Thanks in advance,

t0ny84

 

[t0ny84]

WARNING - This will RESET ALL MENUS!

OK I think I have fixed this, the steps are:

1) Copy below VBA Code into VBA Editor and run, this will generate a list of all Control IDs and information.
2) Copy Application.CommandBars( (CELL G1) and ).Reset (Cell H1) to two cells.
3) Delete Duplicates based on Control ID Column.
4) Do Concatenate Formula in empty column and fill down.
=CONCATENATE($G$1,Control ID Cell 1,$H$1)

5) Copy the values from this column and paste into a new SUB then run (you may need to split these and do them a few at a time).
6) Close and reopen Excel.

The menus should now ALL be reset.

Code From - List Excel command bars and controls

Sub ListCommandBarsAndControls()
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' Create a header on the first row of the spreadsheet
    ws.Rows(1).Cells(1) = "BAR NAME"
    ws.Rows(1).Cells(2) = "BAR VISIBLE"
    ws.Rows(1).Cells(3) = "BAR BUILTIN"
    ws.Rows(1).Cells(4) = "CONTROL ID"
    ws.Rows(1).Cells(5) = "CONTROL CAPTION"
    ws.Rows(1).Cells(6) = "CONTROL ENABLED"
    
    ' Set a variable so the following starts writing on the second row
    targetRow = 2
    
    ' Iterate through all command bars
    For i = 1 To Application.CommandBars.Count

        Set sCmdBar = Application.CommandBars(i)
        ws.Rows(targetRow).Cells(1) = sCmdBar.Name
        ws.Rows(targetRow).Cells(2) = sCmdBar.Visible
        ws.Rows(targetRow).Cells(3) = sCmdBar.BuiltIn
        
        ' And for each command bar, iterate through all the available controls
        For j = 1 To Application.CommandBars(i).Controls.Count
            Set sControl = Application.CommandBars(i).Controls(j)
            ws.Rows(targetRow).Cells(1) = sCmdBar.Name
            ws.Rows(targetRow).Cells(2) = sCmdBar.Visible
            ws.Rows(targetRow).Cells(3) = sCmdBar.BuiltIn
            ws.Rows(targetRow).Cells(4) = sControl.ID
            ws.Rows(targetRow).Cells(5) = sControl.Caption
            ws.Rows(targetRow).Cells(6) = sControl.Enabled
            targetRow = targetRow + 1
        Next j

    Next i

    ' Some times it takes a while to complete so pop up
    ' a message box to make it clear when it's finished
    MsgBox "Complete!"

End Sub