为什么VBA doubleclick突然停止工作？

Question

下面的代码突然停止工作，请帮忙？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

On Error Resume Next
If Target.Column = 2 And Target.Row > 27 And Target.Row < 70 Then
        UserForm1.Show
        Target.Value = returnvalue
        Cancel = True
    End If
End Sub

Answer 1

感谢大家的帮助。我正在使用字典来填充表单的初始化块中的列表框。用于构建字典的范围存在重复，导致代码失败。更新代码以处理重复项可以解决我的问题。