こんにちは、あつです。ソースをそのまま貼り付けて私の環境で実行しました。結果はエラーは出ませんでしたしんやさんの環境は?VBのバージョンとサービスパックエクセルの参照設定のバージョンを確認くださいちなみに私はVB6.0SP5Microsoft Excel 9.0 Object Libraryです。