Сохранять Книгу из шаблона

[Verbludov]

Есть файл шаблона .xlt.
я его открываю и хочу сохранить под новым именем таким образом:

Sub сохранить() ' сохранить эксель файл из шаблона
On Error Resume Next    ' если папка уже есть, то не создаем
NewFolderName = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, Cells(1, 4) & " " & Cells(1, 22)) ' имя новой папки 
MkDir NewFolderName    ' создать новую папку

ActiveWorkbook.SaveAs Filename:=NewFolderName & Application.PathSeparator & Cells(1, 4) & " " & Cells(1, 22) _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

когда он был еще не шаблоном, а просто книгой (xls), то сохранялся во вновь созданной (относительно исходного положения книги) папке с новым именем...а вот как только я его переименовал в шаблон (xlt), то новая книга сразу "переезжает" в "мои документы", там создает папку.

посоветуйте, как быть...лучше чтоб был шаблон, а новая книга сохранялась в новой папке относительно шаблона....
ну или как защитить книгу??

ThisWorkbook.FullName, ThisWorkbook.Name

на что исправить?