[CODE]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F19:M19]) Is Nothing And Target.Count = 1 Then
Dim i As Byte
For i = 1 To 8
ActiveSheet.OLEObjects("CheckBox" & i).Object = IIf(Cells(19, i + 5) = 1, 1, 0)
If Cells(19, i + 5) = 1 Then
Cells(19 - 16, i + 5).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next
End If
End Sub