Prova con questa routine:
Sub EliminaStrumentiPersonalizzatiMenuConstetuale()
Dim BarraMC As CommandBar
Dim Ctrl As CommandBarControl
Set BarraMC = Application.CommandBars("Cell")
For Each Ctrl In BarraMC.Controls
If Ctrl.BuiltIn = False Then Ctrl.Delete
Next Ctrl
End Sub