エラーを回避するには？ (ID:123006)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ねろさん、あ〜さんレスありがとうございます。 このコードを間に入れると、 > myBook.Save > myBook.Saved = True > myExcel.Application.Quit Book1への変更を保存しますか？ はい いいえ キャンセル が出て砂時計のまま固まってしまいました。 ちなみにExcen2000を再インストールしてもだめでした。 For Each myRng In Shc.Range("G2", Shc.Range("G65536").End(xlUp)) If myRng = "0" Then myRng.ClearContents Next myRng に変えると大丈夫なのですが、原因がわかりません。 もう一つPCがありますので、 環境はXP Pro SP1 VB6 SP6 Excel 2000 で実行すると、同じエラーが出ます。 どこが悪いのかさっぱりわかりません。 HelpMe