主题：[求助]快捷菜单问题

Dim flag As Boolean = False
For Each cm As object In ContextMenus
    If cm.name = "cell" Then
        flag = True
        Exit For
    End If
Next

msgbox(flag)