Private Sub CheckBox32_Click()
Dim K As String
K = "0050 Plié"
If CheckBox32.Value = True Then
Range("G24").Select
Range("G24").End(xlDown).Offset(1, 0).Select
ActiveCell = K
ElseIf CheckBox32.Value = False Then
i = 26
While i <> 41
If Worksheets("page1").Cells(i, 7) = "0050 Plié" Then
Worksheets("page1").Cells(i, 7) = ""
End If
i = i + 1
Wend
End If
End Sub