ActiveX组合框问题

Question

1）创建了activex组合框，以便在每次下拉时调用宏。

2）让组合框作为两个下拉a）比较数据b）明确内容。

3）当我点击组合框中的比较数据时，它应该调用名为＆＃34的宏;比较数据＆＃34;否则它应该调用名为＆＃34的宏;明确的内容＆＃34;。

4）执行相同的我写下面的代码

Private sub combobox21_click()
  Dim a As string 
  If sheet.Combobox 21.value = " comparedata" then
    Call module1.comparedata
  Else 
    Call module1.clearcontent
  End If 
End sub 

5）代码正在执行而没有错误。但是当我点击组合框下拉时..宏的相应动作没有发生.n任何错误也没有发生。