Private arA1() As Variant
 
Private Sub ckA1_Click()
    arA1() = Array(ckA9, ckA10, ckA11, ckA12, ckB1, _
                        ckB2, ckB3, ckC3, ckC4, ckD1, ckD2, ckD3, ckD4)
    Call EnableChecks(arA1(), ckA1)
End Sub
 
Private Sub EnableChecks(oArr() As Variant, oCon As Control)
Dim t As Variant
    For Each t In oArr()
        If t.Tag = "" Then t.Tag = 0
        If oCon.Value = True Then
            t.Tag = t.Tag + 1
        ElseIf oCon.Value = False Then
            t.Tag = t.Tag - 1
        End If
        If t.Tag > 0 Then t.Enabled = False
        If t.Tag < 1 Then t.Enabled = True
    Next t
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!