带有VBA的Excel动态列表

Question

我正在开发一个excel清单工作表，其中包含我的下拉列表的动态数据验证。我不确切地知道原因，但是当我在发生验证的工作表中添加额外的行时，我有以下错误：

Run-time error '1004':
Application-defined or object-defined error 

我的代码被解雇BeforeDoubleClick

Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

这是一段代码，它继续在Formula1：section给我一个错误。我不确定为什么，但它只发生在我触发动作的actite工作表中添加额外行的那一刻。

If Not Intersect(Target, Range("List_Items")) Is Nothing Then
                    Var = CurSheetName & "!" & ActiveDynamicRange
                    With Selection.Validation
                        .Delete
                        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                         Operator:=xlBetween, Formula1:="=" & Var
                        .IgnoreBlank = True
                        .InCellDropdown = True
                        .InputTitle = ""
                        .ErrorTitle = ""
                        .InputMessage = ""
                        .ErrorMessage = ""
                        .ShowInput = True
                        .ShowError = True
                    End With
                End If

Var变量设置如下：

Var = CurSheetName & "!" & ActiveDynamicRange

对应于：Inventory_October_2016！$ C $ 3：$ C $ 3

如果我删除该行，它可以正常工作。但是当我添加一个新行时，它开始窃听。有没有人知道为什么请？

谢谢你。