Checkbox excel

[Segers]

Bekijk bijlage upload.xlsIn bijlage mijn doc.

Sheet 3 Grainers:

Kolom H, checkboxen werken

Kolom P, checkboxen werken niet

Iemand een idee waar de fout zit?
Ik heb de code hieronder gezet want anders was mijn bestand te groot

code

Private Sub CheckBox1_Click()
Verwerken1 4
End Sub
Private Sub CheckBox2_Click()
Verwerken1 5
End Sub

Private Sub CheckBox21_Click()
Verwerken2 24
End Sub

Private Sub CheckBox22_Click()
Verwerken2 25
End Sub

Private Sub CheckBox23_Click()
Verwerken2 26
End Sub

Private Sub CheckBox24_Click()
Verwerken2 27
End Sub

Private Sub CheckBox25_Click()
Verwerken2 28
End Sub

Private Sub CheckBox26_Click()
Verwerken2 29
End Sub

Private Sub CheckBox27_Click()
Verwerken2 30
End Sub

Private Sub CheckBox28_Click()
Verwerken2 31
End Sub

Private Sub CheckBox29_Click()
Verwerken2 32
End Sub

Private Sub CheckBox3_Click()
Verwerken1 6
End Sub

Private Sub CheckBox30_Click()
Verwerken2 33
End Sub

Private Sub CheckBox31_Click()
Verwerken2 34
End Sub

Private Sub CheckBox32_Click()
Verwerken2 35
End Sub

Private Sub CheckBox33_Click()
Verwerken2 36
End Sub

Private Sub CheckBox34_Click()
Verwerken2 37
End Sub

Private Sub CheckBox35_Click()
Verwerken2 38
End Sub

Private Sub CheckBox36_Click()
Verwerken2 39
End Sub

Private Sub CheckBox37_Click()
Verwerken2 40
End Sub

Private Sub CheckBox38_Click()
Verwerken2 41
End Sub

Private Sub CheckBox39_Click()
Verwerken2 42
End Sub

Private Sub CheckBox4_Click()
Verwerken1 7
End Sub

Private Sub CheckBox40_Click()
Verwerken2 43
End Sub

Private Sub CheckBox5_Click()
Verwerken1 8
End Sub
Private Sub CheckBox6_Click()
Verwerken1 9
End Sub
Private Sub CheckBox7_Click()
Verwerken1 10
End Sub
Private Sub CheckBox8_Click()
Verwerken1 11
End Sub
Private Sub CheckBox9_Click()
Verwerken1 12
End Sub
Private Sub CheckBox10_Click()
Verwerken1 13
End Sub
Private Sub CheckBox11_Click()
Verwerken1 14
End Sub
Private Sub CheckBox12_Click()
Verwerken1 15
End Sub
Private Sub CheckBox13_Click()
Verwerken1 16
End Sub
Private Sub CheckBox14_Click()
Verwerken1 17
End Sub
Private Sub CheckBox15_Click()
Verwerken1 18
End Sub
Private Sub CheckBox16_Click()
Verwerken1 19
End Sub
Private Sub CheckBox17_Click()
Verwerken1 20
End Sub
Private Sub CheckBox18_Click()
Verwerken1 21
End Sub
Private Sub CheckBox19_Click()
Verwerken1 22
End Sub
Private Sub CheckBox20_Click()
Verwerken1 23
End Sub

Sub Verwerken1(x)
Start
If OLEObjects("Checkbox" & x - 3).Object Then
Range("C" & x & ":F" & x).Font.Color = vbRed
[C24].Value = [C24] - Range("C" & x)
[D24].Value = [D24] - Range("D" & x)
[F24].Value = [F24] - Range("F" & x)
[E24].Value = [F24].Value / [D24].Value
[J27].Value = [D24].Value + [L24].Value
[N27].Value = [F24].Value + [N24].Value
[L27].Value = [N27].Value / [J27].Value
Else
Range("C" & x & ":F" & x).Font.Color = vbBlack
Start
[J27].Value = [D24].Value + [L24].Value
[N27].Value = [F24].Value + [N24].Value
[L27].Value = [N27].Value / [J27].Value
End If
End Sub

Sub Start()
[C24].Value = ColorFunctionFont([C4:C23])
[D24].Value = ColorFunctionFont([D423])
[F24].Value = ColorFunctionFont([F4:F23])
[E24].Value = [F24].Value / [D24].Value
End Sub

Sub Verwerken2(x)
Start2
If OLEObjects("Checkbox" & x - 3).Object Then
Range("K" & x & ":N" & x).Font.Color = vbRed
[K24].Value = [K24] - Range("K" & x)
[L24].Value = [L24] - Range("L" & x)
[N24].Value = [N24] - Range("N" & x)
[M24].Value = [N24].Value / [L24].Value
[J27].Value = [D24].Value + [L24].Value
[N27].Value = [F24].Value + [N24].Value
[L27].Value = [N27].Value / [J27].Value
Else
Range("K" & x & ":N" & x).Font.Color = vbBlack
Start2
[J27].Value = [D24].Value + [L24].Value
[N27].Value = [F24].Value + [N24].Value
[L27].Value = [N27].Value / [J27].Value
End If
End Sub

Sub Start2()
[K24].Value = ColorFunctionFont([K4:K23])
[L24].Value = ColorFunctionFont([L4:L23])
[N24].Value = ColorFunctionFont([N4:N23])
[M24].Value = [N24].Value / [L24].Value
End Sub