Copy rows into asheet when checkbox is select

Thanks for the link....

I have found a macro that kind of allows me to copy the rows required.... can you help me tweak it so it lets me copy the row in which the checkbox is in and it copies the data into a specified sheet e.g. CheckIn ot CheckOut.

Sub AddSheetandCopy()
Dim sShape As Shape
Dim wsNew As Worksheet
Dim wsStart As Worksheet
Dim Sheet2 As Worksheet

Set wsStart = ActiveSheet
Set wsNew = Sheets.Add()
Set Sheet2 = Worksheet.Select()

For Each sShape In wsStart.Shapes
With sShape
If .FormControlType = xlCheckBox Then
If .ControlFormat.Value = xlOn Then
wsStart.Range("a2:i2").EntireRow.Copy Destination:=Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If

End If
End With
Next sShape
'wsNew.DrawingObjects.Delete '
End Sub

Hi!

were you able to solve this problem?? I' doing something very similar...