ＶＢＡで作った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 · ベストアンサー

>番号が知りたい//
こちらの方がスマートですね
MsgBox ActiveSheet.CheckBoxes(Application.Caller).Index

お礼

ありがつございました。

回答No.2

watabe007

>番号が知りたい//
MsgBox Split(ActiveSheet.Shapes(Application.Caller).Name, "　")(1)

回答No.1

watabe007

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

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