通过listbox activex控件中的单元格链接，在VBA中使用chenge工作

Question

如果更改了一个特殊单元格，我使用下面的代码运行一个宏。

    Private Sub Worksheet_Change(ByVal Target As Range)
Dim rDependents As Range
On Error Resume Next
Set rDependents = Target.Dependents
If Err.Number > 0 Then
    Exit Sub
End If


If Not Application.Intersect(rDependents, Range("G19")) Is Nothing Then
    MsgBox ("Cell D2 Has Changed.")
End If
End Sub

这段代码真正通过公式或手牌改变单元格的值，但当我通过单元格链接通过＆＃34; activex listbox＆＃34;更改单元格的值时这段代码不起作用。 有人可以帮我吗？ list box control