Удаление части имени файла при сохранении

[BDA2011]

Здравствуйте уважаемые форумчане!
есть такая кнопочка которая вызывает стандартное диалоговое окно "сохранить как" и подставляет туда текущую дату+имя открытой книги

Private Sub CommandButton5_Click()
iFileName$ = ActiveWorkbook.Name
iSaveTime$ = Format(Now, "dd/mm/yy""г. ")
SaveName = iSaveTime & iFileName$
Application.Dialogs(xlDialogSaveWor kbook).Show Arg1:=SaveName, Arg2:="1"
End Sub

имя открытого файла всегда примерно такого вида "16.10.11г. отчёт.xls"
вопрос как в коде прописать чтобы старая дата стиралась (заменялась) текущей? только дата! что бы текст оставался не тронутым но при этом в окне была возможность его изменить вручную

[EducatedFool]

Private Sub CommandButton5_Click()
    iFileName$ = ActiveWorkbook.Name
    
    ' удаляем первые 11 символов из имени, если это дата
    If iFileName$ Like "##.##.##г. *" Then iFileName$ = Mid(iFileName$, 12)
    
    iSaveTime$ = Format(Now, "dd/mm/yy""г. ")
    SaveName = iSaveTime & iFileName$
    Application.Dialogs(xlDialogSaveWorkbook).Show Arg1:=SaveName, Arg2:="1"
End Sub

[BDA2011]

Огромное Спасибо! всё работает

[Bape}l{ka]

а если это загнать в надстройку, подскажите пожалуйста, как прописать, чтобы при открытии любого экселевского файла надстройка автоматом подгружалась..

[EducatedFool]

Bape}l{ka, а какое отношение ваш вопрос имеет к этой теме?

Что мешает просто подключить надстройку?
http://excelvba.ru/code/AutoRun