ＶＢＡで作ったCheckBoxesの名前を知りたい。

ＶＢＡでCheckBoxeを３個作りsub checkをコールできる用にしました。
このsub checkのなかで今どのCheckBoxeがクリックされたか調べたいのですがどうすればいいでしょうか、

Sub main()
With ActiveSheet.CheckBoxes.Add(10, 10, 20, 20)
.Name = "CheckBox　" & .Index
.Caption = ""
.OnAction = "check"
End With

With ActiveSheet.CheckBoxes.Add(10, 50, 20, 20)
.Name = "CheckBox　" & .Index
.Caption = ""
.OnAction = "check"
End With

With ActiveSheet.CheckBoxes.Add(10, 100, 20, 20)
.Name = "CheckBox　" & .Index
.Caption = ""
.OnAction = "check"
End With

End Sub

Sub check()

'// クリックされたcheckboxの番号が知りたい//

End Sub

No.3 ベストアンサー 回答者： watabe007 回答日時： 2010/02/19 12:36

>番号が知りたい//

こちらの方がスマートですね
MsgBox ActiveSheet.CheckBoxes(Application.Caller).Index

この回答へのお礼

ありがつございました。

お礼日時：2010/02/19 13:26

No.2 回答者： watabe007 回答日時： 2010/02/19 12:29

>番号が知りたい//

MsgBox Split(ActiveSheet.Shapes(Application.Caller).Name, "　")(1)

No.1 回答者： watabe007 回答日時： 2010/02/19 12:19

''// クリックされたcheckboxの番号が知りたい//

Sub check()
　　　　MsgBox ActiveSheet.Shapes(Application.Caller).Name
End Sub