Directly applying Check Box:
Sub LinkChecklist()
Dim chk As CheckBox
For Each chk In [Link]
[Link] = [Link](0, -1).Address
Next
End Sub
Conditional Formating the check Box
=AND($D1=”Contract”,$N$11)
i.e. if D column value is contract and n11 is true all color becomes same