ник: osmor
ну как не выдает?
У вас в этом куске еесть 4 with и только 1 end with
...
With cbar
With .Controls
With .Add(Type:=msoControlPopup)
.Caption = "Поддержка"
With .Controls
With .Add(Type:=msoControlButton)
.Caption = "Данные"
.Enabled = Общее_декабрь
.OnAction = "Общее декабрь"
End With
End sub
|
синтаксические ошибки исправьте