Excel VBA 質問スレ Part49©2ch.net

[0150 デフォルトの名無しさん (ﾜｯﾁｮｲ 97ea-okny) 2017/07/08(土) 04:13:51.39 ID:4CWa99QQ0]

Private Sub Worksheet_Calculate()


If Worksheets("sheet1").Cells(3, 20) > 4000 Then

Worksheets("sheet1").Range("V4:AP4").Insert

End If


end sub

インサートがめっちゃ繰り返される。どうして？