Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("G11").Value = "discount" Then
ActiveSheet.Shapes("Check Box 4").ControlFormat.Value = False
Else
ActiveSheet.Shapes("Check Box 4").ControlFormat.Value = True
End If
If Range("G11").Value = "discount" Then
CheckBox1.Value = True
Else
CheckBox1.Value = False
End If
End Sub