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
Bookmarks