Накопительный лист

[kzld]

Сообщение от doober

См.вложение,инструкция внутри

Предложенный Вами модуль, перенёс в свой файл.
МАКРОСЫ-ВЫПОЛНИТЬ-INITIALIZEBAR-
при щелчке правой кнопкой мыши появился новый пункт
Но работать не желает, ругается на строчку кода

  Set ra = Sheets("all").Columns(1).SpecialCells(xlCellTypeConstants)

Если подсветить не ячейку, а всю строку целиком, по новоявленный пунк
ПКМ исчезает.
Заново МАКРОСЫ-ВЫПОЛНИТЬ-INITIALIZEBAR-
теперь у меня целых три новоявленных пункта при щелчке ПКМ.
Как от них избавиться

[doober]

Естественно это с модуля книги не перенесли.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 On Error GoTo 0
    
     Application.CommandBars("Cell").Reset
End Sub

Private Sub Workbook_Open()
Application.CommandBars("Cell").Reset

InitializeBar
End Sub

Set ra = Sheets("all")-имя листа естественно не соответствует вашему