Как найти кнопку управления, которая была нажата внутри подменю

Question

У меня есть меню с подменю, состоящим из кнопок управления:

Set MenuItem = .Controls.Add(Type:=msoControlPopup)
With MenuItem
    .caption = "Code Type"

    With .Controls.Add(Type:=msoControlButton)
        .caption = "Lists"
        .OnAction = "'" & ThisWorkbook.Name & "'!" & "setCaption"
    End With

End With

Sub setCaption()
    MsgBox Application.caller
End Sub

Когда я пытаюсь использовать приведенный выше пример, я получаю ошибку несоответствия типов.