Добрый день!!!
Народ как решить такую траблу.
В одной книге был написан макрос, вызывающий форму. К листу этой книги было приписано событие: при выборе ячейки в текстбокс вставлялось значение этой ячейки, все работает великолепно. Подскажите плиз, как сделать так чтобы вышеописанное работало во всех книгах?
Единственное что из вышеописанного работает во всех книгах это показ формы, а надо еще чтобы работало онклик по ячейке.

Заранее спасибо...

Посмотри, все ли модули соответствуют исходнику

Проверьте в модуле ИМЕНА книг и листов.

если с примером то так:
на панель инструментов добавлена кнопка с вызовом этого макроса 
в исходном файле в module1:
 
Sub qwe()
    UserForm1.Show (nomodal)
End Sub

в personal.xls там тоже самое (кнопка на панели инструментов, название макроса в модуле), при запуске данного макроса форма появляется (кстати при нажатии на кнопку на панели инструментов он обращается к модулю personal.xls и оттуда происходит onshow),

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

далее в исходном файле, где слева в дереве объектов лист1(прайс)есть процедура 
(краткое описание которой: если форма видна и кликнул по столбику В, то записать первое слово выбранной ячейки в текстбокс):

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

On Error Resume Next
Set r = Application.Intersect(Range("B:B"), Target)
If Not r Is Nothing Then 
    Do While UserForm1.Visible  
     If InStr(ActiveCell, " ") <> 0 Then
       UserForm1.TextBox1.Text = Left(ActiveCell, InStr(ActiveCell, " ") - 1)
       Exit Do
      Else
        UserForm1.TextBox1.Text = ActiveCell
        Exit Do
      End If
    Loop
End If

End Sub

в исходном файле это работает, этот же самый код переношу в лист1(лист1) personal.xls, он даже не заходит в Worksheet_SelectionChange, 

даже самая простая процедура в лист1(лист1) personal.xls не работает

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

MsgBox Target.Address (как ни пытался он сюда не заходит)

End Sub

как заставить эксел делать то что находится здесь Worksheet_SelectionChange из любой книги

Почему бы не разместить это все в XLStart.XLA?

А если оставлять как есть, наверно справидливо одно из решений:
В исходном файле:меняешь на
Module1 дополняешьНу, и, в принципе, в любой книге пишешьЕсли я правильно задание понял.

Кроме того!!!
Есть папочка такая.
C:\Program Files\Microsoft Office\OFFICE11\XLSTART называется. (у меня стоит 2003 офис)
Все книги из этой папочки открываются, когда ехель запускается.
Можно с этим что-либо попробовать