工作表变更脚本似乎没有正常运行 – 不知道为什么

我有一个表跟踪各种项目的进度，我想在状态（A行）发生变化时更改完成百分比（以列G表示）。 我在中间写了脚本来改变基于另一个的单元格，但是外面的一部分（意味着当A中的一个单元格发生变化时使脚本运行），我刚刚断开了networking。 不知道为什么它不工作，任何帮助表示赞赏。

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub Application.EnableEvents = False 'to prevent endless loop Dim LastRow As Long Dim i As Long LastRow = Range("A" & Rows.Count).End(xlUp).Row For i = 3 To LastRow If Range("A" & i).Value = "Complete" Then Range("G" & i).Value = 1 End If Next i Application.EnableEvents = True End Sub