Запись данных в закрытую книгу

[Фатима2811]

Добрый день! У меня такая ситуация: в папке два файла Excel- Тнп и Мотивация. Необходимо, чтобы при закрытии\сохранении Тнп данные с Лист1 попадали в Мотивацию в аналогичные ячейки Листа1, но сам файл Мотивация не должен открываться при этом, т. е. запись происходит в закрытую книгу. Помогите, пожалуйста, реализовать это. Спасибо заранее!

[Казанский]

В модуль ЭтаКнига

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With GetObject(Me.Path & "\Мотивация.xlsx")
  Me.Worksheets("Лист1").UsedRange.Copy .Worksheets("Лист1").Range("A1")
  .Windows(1).Visible = True
  Application.DisplayAlerts = False
  .Close True
  Application.DisplayAlerts = True
End With
End Sub