如何从OLEOjects触发Worksheet_Change？

Question

我希望宏在工作表中的组合框值发生更改时自动运行，但我找不到任何可以修复我的代码的代码。

这是代码

Private Sub Worksheet_Change(ByVal Target As Range)

With Me.CBbox
    If Not Intersect(Target, ActiveSheet.Range(OLEObjects.LinkedCell)) Is   Nothing Then
        Call Macro
    End If
End With

End sub