Two VBA macros - one appears to not work once a change is made

[caet_]

Hello all,
I hope to find you well.

I'm having a problem with a macro that I'm using in a excel questionnaire. Everything works ok when I follow the "correct" order of filling the questionnaire.

However, when I change the cell D10 after selecting the option YES or NO in H20, the Check Box 5 and Check Box 6 appear again (even when the "NO is selected").

For example: I have insered a code, then I have selected "NO" and then I have change the code to 300. As you can see, the checkboxes appeared again. If I select "NO" again, the checkboxes disappear again.

Does anyone know how can I solve this issue?

I have attached the workbook.

Example.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK
1																						100
2																						200
3																						300	YES
4																						400	NO
5																						500
6																						600
7																						700
8
9
10			Code	700
13																																		Direct	FALSE	0
14																																		Indirect	FALSE	0
20							Disccount	NO
23							Last order Date:
24							VAT:
25							Fraction:
26
27
28
29
30		Products
31			A
32			B
33			C
34			D
35
Sheet1

Cell Formulas
Range	Formula
AJ13:AJ14	AJ13	=+IF(AI13=TRUE,1,0)

Cells with Data Validation
Cell	Allow	Criteria
D10	List	=$V$1:$V$7
H20	List	=$W$3:$W$4

Thank you a lot!

 

[caet_]

Here you can find the VBA Codes

Module 1:

Option Explicit

 

Sub Checkbox1()

If Sheet1.[D10] = 100 Or Sheet1.[D10] = 200 Then

    With ActiveSheet

        .CheckBoxes("CheckBox2").Visible = False

        .Rows("32").EntireRow.Hidden = True

        .Rows("31").EntireRow.Hidden = False

        .Rows("33:34").EntireRow.Hidden = False

    End With

ElseIf Sheet1.[D10] = 300 Or Sheet1.[D10] = 400 Then

    With ActiveSheet

        .CheckBoxes("CheckBox3").Visible = False

        .CheckBoxes("CheckBox4").Visible = False

        .CheckBoxes("CheckBox1").Visible = True

        .CheckBoxes("CheckBox2").Visible = True

        .Rows("33:34").EntireRow.Hidden = True

        .Rows("31:32").EntireRow.Hidden = False

    End With

ElseIf Sheet1.[D10] = 500 Or Sheet1.[D10] = 600 Or Sheet1.[D10] = 700 Then

    With ActiveSheet

        .Rows("29:32").EntireRow.Hidden = False

    End With

    End If

 

 

End Sub

 

 

Sub Unhide()

Dim chk As Checkbox

For Each chk In ActiveSheet.CheckBoxes

    chk.Visible = True

Next

End Sub

 

Sub Disccount()

If Sheet1.[H20] = "NO" Then

With ActiveSheet

.CheckBoxes("Check Box 5").Visible = False

.CheckBoxes("Check Box 6").Visible = False

.Rows("21:22").EntireRow.Hidden = True

End With

ElseIf Sheet1.[H20] = "YES" Then

    With ActiveSheet

.CheckBoxes("Check Box 5").Visible = True

.CheckBoxes("Check Box 6").Visible = True

.Rows("21:22").EntireRow.Hidden = False

  End With

    End If

End Sub

Sheet 1:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Call Macro1(Target)

    Call Macro2(Target)

End Sub

 

Sub Macro1(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub

    If Not Intersect(Target, Range("D10")) Is Nothing Then

        Checkbox1

        Unhide

    End If

End Sub

 

 

Sub Macro2(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub

    If Not Intersect(Target, Range("H20")) Is Nothing Then

        Disccount

    End If

End Sub