Надстройка: "Добавление пути нахождения файл" в пе

[sonata]

Посмотрите, please, в надстройке спотыкается на строчке
' Create the new menu item
Set NewItem = Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls.Add

Очень нужна эта надстройка, может, кто-нибудь посмотрит код...