Добрый день.

Задача у меня вроде не сложная (по первоначальному моему представлению)

Надо написать небольшую кучку макросов, оформить их как add-in к Excel'ю + панельки там всякие и отдать юзверям...

Но вот стала у меня загвоздка в этих гребаных панельках..
Вроде все сделал правельно... неработает... код приведу ниже...

Люди, помогите кто может, а то шеф уже
Если есть дока какая нить — это будет просто супер!!!

Option Explicit
Const cBarName As String = "CSV Tool"
Public WithEvents csvAppEvents As Application

Private Sub Class_Initialize()
  Set csvAppEvents = Application ' enable events
End Sub

Private Sub csvAppEvents_WorkbookAddinInstall(ByVal Wb As Workbook)
  Dim csvBar As CommandBar

  'Создание панели инструментов
  Set csvBar = Application.CommandBars.Add(Name:=cBarName, Position:=msoBarTop, Temporary:=True)
  With csvBar
    .Visible = True
    .RowIndex = msoBarRowLast
  End With
End Sub

Private Sub csvAppEvents_WorkbookAddinUninstall(ByVal Wb As Workbook)
  Application.CommandBars(cBarName).Delete
End Sub