[Γενικά] βοηθεια για να μικρυνει το VBA

[Bline_Christos]

Καλησπέρα σε όλους. Παρακαλώ θα ήθελα τις γνώσεις σας ώστε να μπορέσω να μικρύνω τον κώδικα στο vba που έχω γράψει. ευχαριστω πολύ.









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()

End Sub
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

[kapetang]

Καλησπέρα

Δοκίμασε τον κώδικα:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range, c As Range, bln As Boolean

    Set rng = Range("O3:O40")
    For Each c In rng
        bln = c.Value = "Fertig"
        Me.OLEObjects("CheckBox" & c.Row - 2).Visible = bln
        Me.OLEObjects("CheckBox" & c.Row - 2).Enabled = bln
    Next
    
End Sub

[Bline_Christos]

Σας ευχαριστω πολυ για την αμεση αποκριση!!!