try this: Check Box Dilema.xlsm

contains:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        ChangeCheckBoxes Worksheets("Check Box"), True, Target.Value
    End If
End Sub

Sub ChangeCheckBoxes(xlWs As Worksheet, bVal As Boolean, Optional objName As String = vbNullString)
    Dim oOle As OLEObject
    With xlWs
        For Each oOle In .OLEObjects
            If InStr(LCase(oOle.progID), "checkbox") > 0 Then
                If LCase(Left(oOle.Name, 3)) = "chk" Then
                    If Mid(oOle.Name, 4) = objName Then
                        oOle.Object.Value = bVal
                    Else
                        oOle.Object.Value = Not bVal
                    End If
                End If
            End If
        Next oOle
    End With
End Sub