右键菜单型数据有效性能否引用单元格

将红色区域变成象有效性一样引用单元格。
    Dim arr As Variant
    Dim i As Integer
    Dim Mycell As CommandBar
    On Error Resume Next
    Application.CommandBars("Mycell").Delete
    arr = Array("经理室", "办公室", "生技科", "财务科", "1", "2", "3", "4", "5", "6", "7", "8", "9", "营业部")
    Set Mycell = Application.CommandBars.Add("Mycell", 5)
    For i = 0 To 35   
        With Mycell.Controls.Add(1)
            .Caption = arr(i)
            .OnAction = "MyOnAction"

在这时先谢过了。

右键菜单型数据有效性---是什么东东？