ActiveX Control Checkboxes and Table Order

You can do with much less code:

Private Sub CheckBox1_Click()
  Checkbox1.TopLeftCell.value=chckbox1.value
End sub

or use the property CheckBox1.LinkedCell="F12"