Help for make small VBA code

Hi. can somebody help me to make smaller my VBA code? Thanks.

Code:

---

Private Sub CheckBox1_Change()
 If CheckBox1.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D3") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E3")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
  End If
  Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox2_Change()
 If CheckBox2.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D4") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E4")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox3_Change()
 If CheckBox3.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D5") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E5")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox4_Change()
 If CheckBox4.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D6") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E6")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
 Private Sub CheckBox5_Change()
 If CheckBox5.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D7") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E7")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox6_Change()
If CheckBox6.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D8") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E8")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox7_Change()
If CheckBox7.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D9") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E9")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox8_Change()
If CheckBox8.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D10") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E10")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox9_Change()
If CheckBox9.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D11") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E11")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox10_Change()
If CheckBox10.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D12") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E12")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox11_Change()
If CheckBox11.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D13") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E13")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox12_Change()
If CheckBox12.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D14") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E14")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox13_Change()
If CheckBox13.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D15") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E15")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox14_Change()
If CheckBox14.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D16") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E16")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox15_Change()
If CheckBox15.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D17") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E17")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox16_Change()
If CheckBox16.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D18") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E18")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox17_Change()
If CheckBox17.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D19") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E19")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox18_Change()
If CheckBox18.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D20") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E20")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox19_Change()
If CheckBox19.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D21") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E21")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox20_Change()
If CheckBox20.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D22") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E22")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox21_Change()
If CheckBox21.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D23") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E23")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox22_Change()
If CheckBox22.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D24") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E24")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox23_Change()
If CheckBox23.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D25") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E25")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox24_Change()
If CheckBox24.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D26") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E26")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox25_Change()
If CheckBox25.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D27") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E27")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox26_Change()
If CheckBox26.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D28") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E28")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox27_Change()
If CheckBox27.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D29") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E29")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
 End Sub
 
Private Sub CheckBox28_Change()
If CheckBox28.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D30") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E30")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox29_Change()
If CheckBox29.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D31") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E31")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox30_Change()
If CheckBox30.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D32") & vbNewLine & " " & "WAP:" & "  " & _
    Worksheets("Frue Verladung").Range("E32")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox31_Change()
If CheckBox31.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D33") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E33")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox32_Change()
If CheckBox32.Value = True Then
    Dim Msg As String
    Msg = Msg & Worksheets("Frue Verladung").Range("D34") & vbNewLine & " " & "WAP:" & "  " & _
    Worksheets("Frue Verladung").Range("E34")
    Sheets("HELP").Range("D3") = Msg
    Worksheets("HELP").Visible = True
    ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
    End If
    Worksheets("HELP").Visible = False
    End Sub
 
Private Sub CheckBox33_Change()
If CheckBox33.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D35") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E35")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox34_Change()
If CheckBox34.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D36") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E36")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox35_Change()
If CheckBox35.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D37") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E37")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
  ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox36_Change()
If CheckBox36.Value = True Then
 Dim Msg As String
 Msg = Msg & Worksheets("Frue Verladung").Range("D38") & vbNewLine & " " & "WAP:" & "  " & _ Worksheets("Frue Verladung").Range("E38")
Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
Private Sub CheckBox37_Change()
If CheckBox37.Value = True Then
 Dim Msg As String
 Msg = Msg & Worksheets("Frue Verladung").Range("D39") & vbNewLine & " " & "WAP:" & "  " & _ Worksheets("Frue Verladung").Range("E39")
Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
 Worksheets("HELP").Visible = False
  End Sub
 
 Private Sub CheckBox38_Change()
If CheckBox38.Value = True Then
  Dim Msg As String
  Msg = Msg & Worksheets("Frue Verladung").Range("D40") & vbNewLine & " " & "WAP:" & "  " & _
  Worksheets("Frue Verladung").Range("E40")
  Sheets("HELP").Range("D3") = Msg
  Worksheets("HELP").Visible = True
    ActiveWorkbook.Worksheets("HELP").PrintOut copies:=1, Collate:=True
End If
  Worksheets("HELP").Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheets("Frue Verladung").Range("O3").Value = "Fertig" And _
Len(Worksheets("Frue Verladung").Range("d3").Value) > 2 Then
  CheckBox1.Visible = True
  CheckBox1.Enabled = True
Else
  CheckBox1.Visible = False
  CheckBox1.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O4").Value = "Fertig" And _
Len(Worksheets("Frue        Verladung").Range("d4").Value) > 2 Then
  CheckBox2.Visible = True
  CheckBox2.Enabled = True
Else
  CheckBox2.Visible = False
  CheckBox2.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O5").Value = "Fertig" And _
Len(Worksheets("Frue Verladung").Range("d5").Value) > 2 Then
  CheckBox3.Visible = True
  CheckBox3.Enabled = True
Else
  CheckBox3.Visible = False
  CheckBox3.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O6").Value = "Fertig" And _
Len(Worksheets("Frue Verladung").Range("d6").Value) > 2 Then
  CheckBox4.Visible = True
  CheckBox4.Enabled = True
Else
  CheckBox4.Visible = False
  CheckBox4.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O7").Value = "Fertig" And _
Len(Worksheets("Frue Verladung").Range("d7").Value) > 2 Then
  CheckBox5.Visible = True
  CheckBox5.Enabled = True
Else
  CheckBox5.Visible = False
  CheckBox5.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O8").Value = "Fertig" And _
Len(Worksheets("Frue Verladung").Range("d8").Value) > 2 Then
  CheckBox6.Visible = True
  CheckBox6.Enabled = True
Else
  CheckBox6.Visible = False
  CheckBox6.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O9").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d9").Value) > 2 Then
  CheckBox7.Visible = True
  CheckBox7.Enabled = True
Else
  CheckBox7.Visible = False
  CheckBox7.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O10").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d10").Value) > 2 Then
  CheckBox8.Visible = True
  CheckBox8.Enabled = True
Else
  CheckBox8.Visible = False
  CheckBox8.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O11").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d11").Value) > 2 Then
  CheckBox9.Visible = True
  CheckBox9.Enabled = True
Else
  CheckBox9.Visible = False
  CheckBox9.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O12").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d12").Value) > 2 Then
  CheckBox10.Visible = True
  CheckBox10.Enabled = True
Else
  CheckBox10.Visible = False
  CheckBox10.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O13").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d13").Value) > 2 Then
  CheckBox11.Visible = True
  CheckBox11.Enabled = True
Else
  CheckBox11.Visible = False
  CheckBox11.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O14").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d14").Value) > 2 Then
  CheckBox12.Visible = True
  CheckBox12.Enabled = True
Else
  CheckBox12.Visible = False
  CheckBox12.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O15").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d15").Value) > 2 Then
  CheckBox13.Visible = True
  CheckBox13.Enabled = True
Else
  CheckBox13.Visible = False
  CheckBox13.Enabled = False
End If


If Worksheets("Frue Verladung").Range("O16").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d16").Value) > 2 Then
  CheckBox14.Visible = True
  CheckBox14.Enabled = True
Else
  CheckBox14.Visible = False
  CheckBox14.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O17").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d17").Value) > 2 Then
  CheckBox15.Visible = True
  CheckBox15.Enabled = True
Else
  CheckBox15.Visible = False
  CheckBox15.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O18").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d18").Value) > 2 Then
  CheckBox16.Visible = True
  CheckBox16.Enabled = True
Else
  CheckBox16.Visible = False
  CheckBox16.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O19").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d19").Value) > 2 Then
  CheckBox17.Visible = True
  CheckBox17.Enabled = True
Else
  CheckBox17.Visible = False
  CheckBox17.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O20").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d20").Value) > 2 Then
  CheckBox18.Visible = True
  CheckBox18.Enabled = True
Else
  CheckBox18.Visible = False
  CheckBox18.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O21").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d21").Value) > 2 Then
  CheckBox19.Visible = True
  CheckBox19.Enabled = True
Else
  CheckBox19.Visible = False
  CheckBox19.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O22").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d22").Value) > 2 Then
  CheckBox20.Visible = True
  CheckBox20.Enabled = True
Else
  CheckBox20.Visible = False
  CheckBox20.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O23").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d23").Value) > 2 Then
  CheckBox21.Visible = True
  CheckBox21.Enabled = True
Else
  CheckBox21.Visible = False
  CheckBox21.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O24").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d24").Value) > 2 Then
  CheckBox22.Visible = True
  CheckBox22.Enabled = True
Else
  CheckBox22.Visible = False
  CheckBox22.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O25").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d25").Value) > 2 Then
  CheckBox23.Visible = True
  CheckBox23.Enabled = True
Else
  CheckBox23.Visible = False
  CheckBox23.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O26").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d26").Value) > 2 Then
  CheckBox24.Visible = True
  CheckBox24.Enabled = True
Else
  CheckBox24.Visible = False
  CheckBox24.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O27").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d27").Value) > 2 Then
  CheckBox25.Visible = True
  CheckBox25.Enabled = True
Else
  CheckBox25.Visible = False
  CheckBox25.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O28").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d28").Value) > 2 Then
  CheckBox26.Visible = True
  CheckBox26.Enabled = True
Else
  CheckBox26.Visible = False
  CheckBox26.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O29").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d29").Value) > 2 Then
  CheckBox27.Visible = True
  CheckBox27.Enabled = True
Else
  CheckBox27.Visible = False
  CheckBox27.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O30").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d30").Value) > 2 Then
  CheckBox28.Visible = True
  CheckBox28.Enabled = True
Else
  CheckBox28.Visible = False
  CheckBox28.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O31").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d31").Value) > 2 Then
  CheckBox29.Visible = True
  CheckBox29.Enabled = True
Else
  CheckBox29.Visible = False
  CheckBox29.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O32").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d32").Value) > 2 Then
  CheckBox30.Visible = True
  CheckBox30.Enabled = True
Else
  CheckBox30.Visible = False
  CheckBox30.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O33").Value = "Fertig" And_
 Len(Worksheets("Frue Verladung").Range("d33").Value) > 2 Then
  CheckBox31.Visible = True
  CheckBox31.Enabled = True
Else
  CheckBox31.Visible = False
  CheckBox31.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O34").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d34").Value) > 2 Then
  CheckBox32.Visible = True
  CheckBox32.Enabled = True
Else
  CheckBox32.Visible = False
  CheckBox32.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O35").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d35").Value) > 2 Then
  CheckBox33.Visible = True
  CheckBox33.Enabled = True
Else
  CheckBox33.Visible = False
  CheckBox33.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O36").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d36").Value) > 2 Then
  CheckBox34.Visible = True
  CheckBox34.Enabled = True
Else
  CheckBox34.Visible = False
  CheckBox34.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O37").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d37").Value) > 2 Then
  CheckBox35.Visible = True
  CheckBox35.Enabled = True
Else
  CheckBox35.Visible = False
  CheckBox35.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O38").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d38").Value) > 2 Then
  CheckBox36.Visible = True
  CheckBox36.Enabled = True
Else
  CheckBox36.Visible = False
  CheckBox36.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O39").Value = "Fertig" And _
 Len(Worksheets("Frue Verladung").Range("d39").Value) > 2 Then
  CheckBox37.Visible = True
  CheckBox37.Enabled = True
Else
  CheckBox37.Visible = False
  CheckBox37.Enabled = False
End If
If Worksheets("Frue Verladung").Range("O40").Value = "Fertig" And
 Len(Worksheets("Frue Verladung").Range("d40").Value) > 2 Then
  CheckBox38.Visible = True
  CheckBox38.Enabled = True
Else
  CheckBox38.Visible = False
  CheckBox38.Enabled = False
End If
End Sub

---

Attachment 30201

you can try this.

SUPER work perfect. Thanks

Might want to review a few of thse videos?
https://www.youtube.com/results?sear...rogramming+vba