Worksheet_change事件不会在一段时间后触发

我有一个非常简单的工作表更改事件 – 这曾经工作得很好，在一个书中有很多其他的代码。 我使用它来格式化表格的颜色scheme中与数据透视表相邻的范围。

现在突然间，代码只是开了一会儿，这本书是开放的。 只有closuresExcel 2010实例才能解决问题。

Private Sub Worksheet_Change(ByVal Target As Range) Dim EndRow As Integer Dim StartRange As Range Set StartRange = ActiveCell EndRow = Sheet8.Range("A7:A9999").Find(vbNullString, , xlValues).Row If IsNumeric(EndRow) Then If Target.Column = 1 Then With Sheet8 .Range("AC8:AO9999").ClearFormats .Range("C7:O" & EndRow - 1).Copy .Range("AC7:AO" & EndRow - 1).PasteSpecial (xlPasteFormats) End With Application.CutCopyMode = False StartRange.Select End If End If End Sub