やっぱりだめ。

例の、WorksheetにImplementsをする件だけど、
どうしてもおかしくなる。>>132のDim o As Worksheet にするやつでもだめだった。

いったんはうまく動くんだけど、SheetsをFor EacｈやForで繰り返したりいろいろしていると、
Worksheetからインターフェースを取り出すところで型が違うってエラーになる。
例 Sheet1がInterfaceをImplementsしているときに、Dim i As Interface : Set i = Sheet1

で、例のごとくInterfaceの名前をいったん変えて戻すと再コンパイルされるからか動くようになる。

完全にExcel2000のバグだろう。たぶんSheetにImplementsしない以外に対処法は無い気がする。