Public Sub ListCbars()
'https://www.mrexcel.com/forum/excel-questions/448364-lost-right-click-cut-copy-paste-2.html
Dim oCommBar As CommandBar, oBarControl As CommandBarControl
Dim oCell As Range
Dim intItems As Integer
Speedo False, False, False, False
Set oCell = ActiveSheet.Range("A1")
For Each oCommBar In ThisWorkbook.Application.CommandBars
If oCommBar.BuiltIn Then
oCell.Value = oCommBar.Name
intItems = 1
For Each oBarControl In oCommBar.Controls
oCell.Offset(0, intItems).Value = oBarControl.Caption
intItems = intItems + 1
Next
Set oCell = oCell.Offset(1, 0)
'oCommBar.Reset 'Uncomment this line to reset all built in command bars
End If
Next oCommBar
Speedo True, True, True, True
End Sub