Private Sub Worksheet_Calculate()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
With shp.OLEFormat
If TypeName(.Object) = "OLEObject" Then
If .Object.progID = "Forms.CheckBox.1" Then
.Object.Object.ForeColor = _
IIf(.Object.Object.Value = True, RGB(0, 0, 0), RGB(200, 200, 200))
End If
End If
End With
Next shp
End Sub