问 我的VBA代码不工作，错误信息“编译错误:无效的外部过程”

EN

我正在创建一个为2019年编译的数据列表。我想消除excel数据中的非活动行，并将它们移到一个标题为“非活动(12个月)”的单独工作表中。我将activity列放置为A，我将列出"Inactive“或将其保留为空。

我将代码复制到新的excel工作表中，并试图保存它，但当我按alt-F8组合键时，我也看不到保存的vba代码，它也不能运行。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
' Only react to edits in Column A:  '
    If Not Intersect(Target, Sheets("Buyer Limit").Range("A:A")) Is Nothing Then
    ' Dont do anything if > 1 cell was just changed:   '
    If Target.Cells.Count = 1 Then
        ' Only make the change if the new value in Col A is "inactive":    '            If Target.Value = "Inactive" Then
            ' Find the next available cell on the Inactive(12mths) sheet for a name:   '
            Dim nextRange As Range
            Set nextRange = Sheets("Inactive(12mths").Range("A65536").End(xlUp).Offset(1, 0)
            ' Cut the employee name and status and paste onto the Inactive(12mths) sheet:   '
            Range(Target, Target.Offset(0, -1)).Cut
            Sheets("Buyer Limit").Paste Destination:=Sheets("Inactive(12mths").Range(nextRange.Address)
        End If
    End If
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

我希望此vba代码的输出在我打开工作表时自动运行，但它不会自动运行。我不确定我是不是保存错了。=(

19年6月25日(更新)

我已经重写了引文，但我仍然不能让它在我的excel工作表上工作，启用宏...

Private Sub Worksheet_Activate(ByVal Target As Range)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
    ' Only react to edits in Column A:  '
    If Not Intersect(Target, Sheets("Buyer").Range("A:A")) Is Nothing Then
        ' Dont do anything if > 1 cell was just changed:   '
        If Target.Cells.Count = 1 Then
            ' Only make the change if the new value in Col A is "Inactive":    '
            If Target.Value = "Inactive" Then
                ' Find the next available cell on the Inactive sheet for a name:   '
                Dim nextRange As Range
                Set nextRange = Sheets("Inactive").Range("A65536").End(xlUp).Offset(1, 0)
                ' Cut the CP name and status and paste onto the Inactive sheet:   '
                Range(Target, Target.Offset(0, -1)).Cut
                Sheets("Buyer").Paste Destination:=Sheets("Inactive").Range(nextRange.Address)
        End If
    End If
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub