Private Sub CheckBox1_Click()
CheckBox2 = CheckBox1
CheckBox3 = CheckBox1
CheckBox4 = CheckBox1
CheckBox5 = CheckBox1
CheckBox6 = CheckBox1
CheckBox2.Enabled = Not CheckBox1
CheckBox3.Enabled = Not CheckBox1
CheckBox4.Enabled = Not CheckBox1
CheckBox5.Enabled = Not CheckBox1
CheckBox6.Enabled = Not CheckBox1
End Sub