標準モジュールのプロシージャを特定のシートで呼び出し使いたい・どこかでコードをまとめたい

Question

前提・実現したいこと

VBA初心者です。
標準モジュールで作ったモジュールを特定のシートで呼び出して使いたいのですが、
動いてくれません。

例えば、Sheet1,Sheet2,..Sheet5が存在していて、
Sheet1,Sheet2,..,Sheet4に下記の標準モジュールのコードを書けば動くのですが、
すべて同じ内容を各シートに書くのは、保守性に欠けると思うので
どうにかして一つの場所で管理したいと考えております。

そのうちSheet5には適用しないようにしたいので、
ブックモジュールには書けないのかなと考えています。

該当のソースコード

[標準モジュール(Module1)]
Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

With Target
    Cells(Target.Row, Target.Column).Interior.Color = 65535
End With

End Sub

[Sheet1]
Private Sub test(ByVal Target As Range)

Call Module1.Worksheet_BeforeDoubleClick(Target, True)

End Sub

試したこと

引数ありの場合にどうすればいいのか、ネットで調べましたがよくわかりません
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1236095927

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

各シートごとにRange（"A1")に色を貼り付けして置く（色の変更可能）

Option Explicit
Dim a As Long
Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
Range("A1").Select
a = ActiveCell.Interior.ColorIndex
Cells(Target.Row, Target.Column).Interior.ColorIndex = a
End With

End Sub
一応　案です

Answer 2

ThisWorkbook のモジュールに下記のように記述してください。

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    
    If Sh.Name = "Sheet5" Then Exit Sub
    
    Target.Interior.Color = 65535

End Sub

これで、Sheet5以外のシートでダブルクリックするとセルの背景色が変わります。

Comments

[shinzin]

ありがとうございます！
この件については無事にできました

ただ、これを基に別のコードも実装中なのですが動作しない状態になってるので、また質問させていただきます。

Answer 3

[標準モジュール(Module1)]に記述した構文(ソースコード)をコピーしsheet1のシートモジュールに貼り付けてください
[Sheet1]
Private Sub test(ByVal Target As Range)は削除してください

[Sheet1]のシートモジュールへ貼り付け

Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


With Target
Cells(Target.Row, Target.Column).Interior.Color = 65535
End With

End Sub
’*************************
Public Subは、どこのモジュールから記述しても呼び出すことができるプロシージャーです。
それに対して、Private Subは単一のモジュールからしか呼び出せないです、
＜各シートで呼び出して使いたいのですが、・・・＞
Excel（Sheet1）をコピーしてしてみてください、コピーされたシートも
ダブルクリックされたセルの色が黄色になります

Comments

[shinzin]

回答ありがとうございます。
質問の仕方も工夫すればよかったのですが、例えば、
回答してくださったコードをSheet1,Sheet2....に書くと動作すると思うのですが、
色の変更があったときに各シートでいちいち色番号を変更するのは大変かと思います。

どうにかして、一か所でまとめることはできませんか？
またSheet1,Sheet2,..Sheet5のうちSheet5には適用しないようにしたいので、
ブックモジュールには書けないのかなと考えています。