If you can use a common _CheckedChange sub then possibly
edit: or you could put the +1 / -1 bit in each _CheckedChange sub
Sub CommonCheckbox_CheckedChange(Checked As Boolean)
if checked then
BoxChecked = boxchecked + 1
else
BoxChecked = boxchecked - 1
end if
if boxchecked > 6 then boxchecked = 6 'shouldn't be needed but........
if boxchecked < 0 then boxhecked = 0 'shouldn't be needed but........
end sub
if boxchecked > 0 then some task 'if at least one is checked
if boxchecked = 6 then some other task 'if all are checked