Запуск макроса по клику в любой таблице

[Debauchee]

Пожалуйста, посоветуйте как запускать макрос по клику из любой таблицы.

Макрос должен запускаться если кликнули только по 6-й колонке, начиная со 2-й строки, и только если в выбранной ячейке есть какое-то значение (кроме пробелов).

Нашел на этом форуме такое решение:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column <> 6 Then Exit Sub
    If Target.Row = 1 Then Exit Sub
    If Trim(Target.Value) = "" Then Exit Sub

    ' это пример. тут будет вызываться макрос из модуля книги
    MsgBox "Попали куда надо : " & Target.Column & " : " & Target.Row & " : " & Target.Value

End Sub

Все замечательно работает, но только для того листа, в модуль которого вставлен этот макрос.
Как сделать так, чтобы он работал в любом листе, за исключением первого (например, "Лист1")?

Вставлять код в модуль каждого листа – это плохой вариант, т.к. листы могут произвольно добавляться и удаляться, а тот, кто их добавляет отродясь не слышал такого слова "макросы".

Спасибо за помощь!

[EducatedFool]

Вставьте код в модуль ЭтаКнига:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
' этот макрос запустится при выделении любой ячейки на любом листе текущей книги


    If Sh.Name = "лист1" Then Exit Sub ' кроме листа с именем "лист1"
    If Target.Column <> 6 Or Target.Row = 1 Then Exit Sub
    If Target.Count > 1 Then Exit Sub ' если выделено больше одной ячейки
    
    If Trim(Target.Value) = "" Then МойМакрос ' если ячейка непустая, запускаем макрос
End Sub

[Debauchee]

Спасибо, EducatedFool!

Почему-то Ваш макрос заработал только после переоткрытия книги...

Если не сложно уточните, как вызвать МойМакрос с передачей ему параметров, т.к. ругается на
If Trim(Target.Value) = "" Then МойМакрос(Target.Column, Target.Row, Target.Value)

[EducatedFool]

как вызвать МойМакрос с передачей ему параметров

как я вам могу помочь, если я не видел вашего макроса...
покажите код - подскажем

PS: Проще в макрос передать ячейку Target (один параметр вместо трех),
а в вашем макросе уже получать характеристики ячейки (номер столбца, значение, и т.д.)

[Debauchee]

Это не принципиально.
Допустим, что макрос содержит просто MsgBox

Sub МойМакрос(c As Integer, r As Integer, v As String)
    MsgBox "Попали куда надо: " & c & " : " & r & " : " & v
End Sub

тогда при вызове
МойМакрос(Target.Column, Target.Row, Target.Value)
макрос должен выводить MsgBox с сообщением, например, "Попали куда надо : 6 : 3 : что-то"

Проблема в том, что никак не могу найти, как передаются переменные в процедуру.

Пожалуйста, посоветуйте хороший справочник по VBA для Excel!

[doober]

слова EducatedFool воплощены в файле