Worksheet_change事件一段时间后没有触发

Question

我有一个非常简单的工作表更改事件 - 曾经工作得很好，在一本包含许多其他代码的书中。我用它来格式化所述表的颜色方案中与数据透视表相邻的范围。

现在突然间，代码只是暂停了一段时间，这本书是打开的。只关闭Excel 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