Добавить код макросом.

[agregator]

Увадаемые программисты, напишите, можно ли добавить макросом код в модуль "Эта книга" и потом удалить. И как?

[The_Prist]

А зачем это нужно? Скажите причину такого, может найдется более удобное решение проблемы?
Добавить можно, и удалить можно. Но есть некоторые факторы, которые могут помешать это сделать.

[agregator]

The_Prist, я хочу выключать только "Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)", а другие макросы на Листах и в ЭтаКнига, чтобы работали.

[EducatedFool]

Чтобы "выключить" какой-то макрос, вполне достаточно изменить значение одной переменной, и дописать в макрос одну строку:

Dim НеВыполнятьМакрос As Boolean

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If НеВыполнятьМакрос Then Exit Sub
    ' далее ваш код
End Sub

Удалять строки из макроса намного сложнее, и в данном случае это не требуется.

[The_Prist]

Я к чему спросил. Вам скорее всего надо отслеживать события(в данном случае SelectionChange) в любой открытой книге?
Присмотритесь к классам.
Вот пример. В модуле ЭтаКнига пишете такое

Private WithEvents App As Application
Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Ваш код обработки события
End Sub