Код со свойством DialogSheets очень древний, используйте вместо него объект Sheets.
Странно, но в отладке вылезает DialogSheets... Vlad Osadchy, откуда вы такой объект вытащили?
Разобрался DialogSheets.Add. ПКМ по листу -> Вставить -> Окно диалога Excel 5.0
ЗЫ: У меня ошибки нет. Кнопка работает.
Простой
