エクセル2010のvbaについて

質問

押されたコマンドボタンの名前を取得したいです
（調べてみましたがエラーになり取得できませんでした）

後コマンドボタンがたくさんあり、コードも長く
とても邪魔なので省略したいのですができますか？

（左クリックと右クリックで違う処理をした後　　　　　　　MouseDown
コマンドボタンの名前で少し処理を変えるコードです）　MouseUp
（下のコードのような感じです）

回答お願いします

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer,
ByVal x As Single, ByVal y As Single)
Select Case Button
Case 1
Range("A1") = 1
Case 2
Range("A1") = 2
End Select
End Sub

Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
If （コマンドボタンの名前を取得） = "aaa" Then
Range("A1") = Range("A1") + 1
Else
Range("A1") = Range("A1") - 1
End If
End Sub

回答No.2

nag0720

これはどう？

http://blog.goo.ne.jp/pc_college/e/9ca2b0c452e9e691cad1dbd2783868cf

補足

すいません
回答締め切ります

回答No.1

nag0720

これが参考になるんじゃないかな。

http://okwave.jp/qa/q5697368.html

補足

すいません
色々いじってみたのですが上手くいきませんでした