Worksheet_Changeの内容を標準モジュールから実行するには？

質問

Worksheet_Changeの内容を標準モジュールから実行できないでしょうか？最終的にはアドインにして使用したいと思っています。

【要件内容】
EXCELの作業をするときに変更したセルが分かるようにしたいのですが、シート毎に下記内容を入力するのは手間なので、アドインとして使用できればと考えています。

何かいい案があればご教授頂けると大変助かります。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.Color = RGB(255, 0, 0)
End Sub
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

回答No.1

myRange

＞EXCELの作業をするときに変更したセルが分かるようにしたいのですが
＞シート毎に下記内容を入力するのは手間なので

別にシートごとに書かなくても
ThisWorkbookモジュールに下記コードをひとつ書くだけです。

'===----------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　　Target.Font.Color = RGB(255, 0, 0)
End Sub
'-------------------

因みに、引数Shは、該当Sheetなので、Sheetを区別したければ、

　　If Sh.Name = "Sheet2" Then

などとします。
以上です。

補足

早速のご回答ありがとうございます。

質問の仕方が悪くて申し訳ございません。
複数のブックが有った場合にも共通でマクロを使いたいと考えております。