Как отловить событие в другой книге Excel?

Question

[Вячеслав Грачунов]

Вопрос такой:
Есть книга с кодом на VBA. В процессе выполнения кода создается и открывается другая книга. Как из материнской книги отловить событие SelectionChange на листе в созданной и записать значение в ячейку материнской книги?

Answer 1

[Вячеслав Грачунов]

Private WithEvents App As Application

Private Sub Workbook_Open() ' открытие книги
     Set App = Application
End Sub

Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Поиск" Then
       'Действия
    End If
End Sub