.OnAction with Parameters get在VBA Excel中执行两次

Question

Set menutext = contextmenu.Controls.add(Type:=msoControlPopup, before:=1)
With menutext
    '.name = "AddTechnologyColumn"
    .Caption = "Add Technology"
    .OnAction = "=addTechColumn(""" & TechGroupName & """)"
End With

“模块

Public Sub addTechColumn(TechGroupName As String)
    MsgBox TechGroupName
End Sub

但是addTechColumn（）执行了2次。