Private Sub Workbook_Open()
Dim iShape As Shape
On Error Resume Next
For Each iShape In ActiveSheet.Shapes
  If iShape.Type = msoGroup Then
    For I = 1 To iShape.GroupItems.Count
      If iShape.GroupItems(I).FormControlType = xlCheckBox Then
        iShape.GroupItems(I).DrawingObject.Value = False
      End If
    Next
  End If
Next
End Sub

Sub ChckMain()
Dim iGroup As Shape
On Error Resume Next
Set iGroup = ActiveSheet.Shapes(Application.Caller).ParentGroup
For I = 1 To iGroup.GroupItems.Count
  If iGroup.GroupItems(I).Name <> Application.Caller Then
    iGroup.GroupItems(I).DrawingObject.Value = ActiveSheet.Shapes(Application.Caller).DrawingObject.Value
  End If
Next
End Sub

Sub PressChBx()
Dim iChBx As Shape
Dim iVal
On Error Resume Next
Set iChBx = ActiveSheet.Shapes(Application.Caller)
iVal = IIf(iChBx.DrawingObject.Value = 1, True, False)
  MsgBox Application.Caller & ", " & iChBx.ParentGroup.Name & ", " & iVal
End Sub