Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
Dim
c
As
Excel.Range
If
Not
Intersect(Range(
"B1:F1"
), Target)
Is
Nothing
Then
For
Each
c
In
Target.Cells
If
UCase$(c.Text) = UCase$(
"x"
)
Then
Select
Case
Target.Address(0, 0)
Case
Is
=
"B1"
If
ThisWorkbook.Worksheets(2).Range(
"D4"
).Value = 0
Then
End
If
Case
Is
=
"C1"
If
ThisWorkbook.Worksheets(2).Range(
"C4"
).Value = 0
Then
End
If
End
Select
End
If
Next
c
End
If
End
Sub