Private Sub ckA1_Click()
Dim arA1() As Variant, t As Variant
    arA1() = Array(ckA9, ckA10, ckA11, ckA12, ckB1, _
                        ckB2, ckB3, ckC3, ckC4, ckD1, ckD2, ckD3, ckD4)
    For Each t In arA1()
        t.Enabled = Not ckA1.Value
    Next t
End Sub
 
Private Sub ckA2_click()
Dim arA2() As Variant, t As Variant
    arA2() = Array(ckA7, ckA11, ckA12, ckC3, ckC4, ckD1, ckD2, ckD3, ckD4)
    For Each t In arA2()
        t.Enabled = Not ckA2.Value
    Next t
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!