Sub CheckBox1_Click_Show()
Dim k As Long, i As Long, n As Long
k = 10
With Worksheets("Questionnaire")
For i = 12 To 19
If IsNumeric(.Cells(i, 6)) Then
If .Cells(i, 6) > 0 Then
If .Cells(i, 6) < 2 Then
Sheets("CAP").Cells(k, 1) = .Cells(i, 1)
Sheets("CAP").Cells(k, 2) = .Cells(i, 6)
Sheets("CAP").Cells(k, 3) = .Cells(i, 7)
k = k + 1
End If
End If
End If
Next i
End With
End Sub