'--------------------------- пункт "Очистить..." вместо "Очистить содер&жимое" -------------------------------
Private Sub MenuCell_ClearContext_Modify()  ' модернизировать пункт "Очистить..."
    Dim sBefore$, sCaption$: sCaption = "Очистить..."
    On Error Resume Next
    With Application.CommandBars("Cell"): .Controls(sCaption).Delete
       sBefore = .FindControl(ID:=2031).Caption   ' поиск названия пункта по известному ID вернёт его Caption "Добавить приме&чание"
       ' зная как пишется Caption в данной локализации, можно будет найти его индекс чтобы указать при добавлении нового пункта
       With .Controls.Add(Before:=.Controls(sBefore).Index, Temporary:=True):
          .Caption = sCaption: .BeginGroup = False: .OnAction = "ThisWorkbook.Clear_Dialog"
       End With
       .Controls(.FindControl(ID:=3125).Caption).Delete   ' удалить не нужный старый пункт "Очистить содер&жимое..."
    End With
End Sub
Private Sub Clear_Dialog()  ' вывести диалог выбора Clear
    On Error Resume Next: Application.Dialogs(xlDialogClear).Show   ' xlDialogClear==52
    If Err Then MsgBox Err.Description
End Sub
Private Sub MenuCell_ClearContext_Delete()   ' удалить меню "Очистить...", восстановить пункт "Очистить содер&жимое..."
    On Error Resume Next
    With Application.CommandBars("Cell")
       .Controls("Очистить...").Delete   ' удалить пункт "Очистить..."
       .Controls(.FindControl(ID:=3125).Caption).Delete    ' на всякий случай прпробовать удалить пункт "Очистить содер&жимое..."
       .Controls.Add ID:=3125, Before:=.Controls(.FindControl(ID:=2031).Caption).Index   'восстановить удалённый пункт "Очистить содер&жимое..." после пункта "Вставить" (ID:=22)
    End With
End Sub