Автоматическое создание макроса

[lavrentiyy]

Ну формула это не важно и сам макрос это не важно.
Это я так образно написал, чтоб потом мысль не потерять
Пробовал

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    MsgBox "!!!"
End Sub

все равно не запускается

[doober]

А это код надо вставлять в модуль листа,и вносить непосредственно с макроса.Посмотрите пример(последний).Я код вставлял в событие открития книги.Макрос при открытии созданного файла сработал?

[lavrentiyy]

Set tt = wb.VBProject.VBComponents.Item("Эта книга") 
tt.CodeModule.InsertLines 1, "Private Sub Workbook_Open()" & vbCrLf & " Test" & vbCrLf & "End Sub"

Я так понимаю в этих строчках и заносится функция в код листа.
Может тогда и весь файл в код загрузить.
ЗЫ doober, спасибо огромное, реально помогаешь.
На других форумах только юмористы-петросяны свои языки всовывали

[doober]

В модуль листа так

Set tt = wb.VBProject.VBComponents.Item("Лист1") 
............................................................
Set tt = wb.VBProject.VBComponents.Item("Лист2")

[lavrentiyy]

Понял, буду пробовать.
doober, будь добр, подскажи - возможно ли сделать автоматическую архивацию данных?

[doober]

Если в поиске по форуму набрать волшебное слово АРХИВАЦИЯ,то можно найти здесь ответ

[lavrentiyy]

Всем спасибо, господа программисты.
Тему можно считать закрытой.