Private Sub ListBox1_Change()

    Dim s As Boolean: s = False
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            s = True
            Exit For
            End If
        Next i
    CheckBox1.Enabled = s

End Sub