エクセルが落ちてしまいます、お願いします

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
（例）PHP(CakePHP)で●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

実行時エラー'-2147417848(80010108)'
'Value'メソッドは失敗しました'Range'オブジェクト
エクセルが落ちます

該当のソースコード

ThisWorkbook.Worksheets("Sheet1").Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = ThisWorkbook.Worksheets("Sheet2").Cells(i, 4).Value

試したこと

ThisWorkbook.Worksheets("Sheet2").Cells(i, 4).Valuen
の文字列は取得いていますが
ThisWorkbook.Worksheets("Sheet1").Cells(ActiveCell.Row, ActiveCell.Column + 1).Value
の書き込みでエラーの様です。

補足情報（FW/ツールのバージョンなど）

Office365　エクセルVBAです

Comments

[meg_]

ActiveCellはThisWorkbook.Worksheets("Sheet1")のセルでしょうか？

[ten0o0ten]

はい、そうです。
その部分の指定が不十分でしょうか？

[ten0o0ten]

Private Sub Worksheet_Change(ByVal Target As Range)
を使用していたために、Changeイベントがループしていました。

Private Sub Worksheet_Change(ByVal Target As Range)
　　Application.EnableEvents = False
既存のコード
　　Application.EnableEvents = True
End Sub
で修正出来たかもしれません。

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
を使用していたために、Changeイベントがループしていました。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
既存のコード
Application.EnableEvents = True
End Sub
で修正出来ました。

ありがとうございました。

Answer 2

エラー箇所の直前のコードが分かりませんが、
Worksheets("Sheet1").Select
を明示してからActiveCellを指定してみてはどうでしょうか。