Excelのコマンドボタンの右クリックを有効にする方法

以下の二つは共存可能。

Private Sub CommandButton1_Click()
    
    MsgBox ("左クリック")
    
End Sub

Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    If Button = 2 Then MsgBox ("右クリック")
    
End Sub