VBAでRangeメソッドが失敗するので、少し悩みました。 エラーがでるのは .Range("A1") = "テスト" のところ、値を入れるだけでエラーが？ と思いましたが、 WorkSheetChangeのなかで、A1の値が変更されると、A1に書き込むようにループになっていたようでした…