Сохр. книги по условию

[ramzan_s]

Доброго времени суток!
Есть папка где содержится папка "Save" и книга "Шаблон.xls"
В этой книге содержится код

Public SaveEnterCounter As Integer

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next

SaveEnterCounter = SaveEnterCounter + 1
If SaveEnterCounter = 1 Then
If SaveAsUI Then
fullSaveAsName = Application.GetSaveAsFilename(Activ eWorkbook.Path + "\Save\" + Worksheets("стр.1").Range("FN37"), "Книга Excel (*.xls), *.xls")
If fullSaveAsName <> False Then
ActiveWorkbook.SaveAs (fullSaveAsName)
Else
Cancel = True
End If

Else
ActiveWorkbook.SaveAs (ActiveWorkbook.Path + "\Save\" + Worksheets("стр.1").Range("FN37"))
End If
Cancel = True
SaveEnterCounter = 0
End If

End Sub

Private Sub Workbook_Open()
SaveEnterCounter = 0
End Sub

По условии он сохраняет книгу в папке "Save", но мне нужно еще при изменении этих сохр-х книг (которые содержатся в папке "Save") чтоб они сохранялись в эту же папку "Save"
как это сделать?
Спасибо!

[ramzan_s]

UP UP UP UP UP