This code captures the action when the user checks the checkbox on Sheet1:
Option Explicit
' Worksheet module
Dim CheckBoxesColl As Collection
Private Sub Worksheet_Activate()
Dim CheckBoxHandler As ClsCheckBoxEvent
Dim MyShp As Shape
Set CheckBoxesColl = New Collection
For...