Private Sub Worksheet_Change(ByVal Target As Range)
Dim ctlCheckBox As CheckBox
With Me
Set ctlCheckBox = .CheckBoxes("CheckboxCW100")
ctlCheckBox.Enabled = Not .Range("G51").Value = "No"
End With
End Sub
If .Range("G51") = "No" Then
ctlCheckBox.Value = 2
Else
ctlCheckBox.Value = 0
End If