Программное создание макроса - VB

Формулировка задачи:

Доброго времени суток!
Пытаюсь создать макрос программно.

CreateMacrosForWorkSheets()
    MacrosText = 
    MacrosText = MacrosText & Chr() +  & Chr() + 
     i =   ThisWorkbook.VBProject.VBComponents.Count
      ThisWorkbook.VBProject.VBComponents.Item(i).CodeModule.AddFromString (MacroText)
     i

Во-первых, не могу понять почему закомментированный код создает макрос, а не закомментированный отрабатывает без ошибок, но ничего не создается. Во-вторых, не знаю, как проверить для какого элемента VBComponents создаю. Мне надо, чтоб создавался обработчик события Worksheet_SelectionChange для каждого листа.
Заранее спасибо :)

Решение задачи: «Программное создание макроса»

textual
                            Листинг программы 
                        
                            <font color="blue">With</font> ThisWorkbook.VBProject.VBComponents(CStr(Worksheets(i).<font color="blue">Name</font>)).CodeModule