エクセル VBA Rangeメソッドが失敗する

VBAでRangeメソッドが失敗するので、少し悩みました。

エラーがでるのは　.Range("A1") = "テスト"

のところ、値を入れるだけでエラーが？

と思いましたが、

WorkSheetChangeのなかで、A1の値が変更されると、A1に書き込むようにループになっていたようでした。

ループしてWorkSheetChangeが起きないようにしたら、治りました。