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 回答日時： 2010/02/06 00:48

＞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

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

この回答への補足

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

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

補足日時：2010/02/06 08:16