(I assume that your checkbox is on an UserForm.

Private Sub CheckBox1_Click(
If CheckBox1.Value = True Then Activesheet.Range("A2").value = 1
End Su

----- Bob wrote: ----

How do I make this work

Private Sub CheckBox1_Click(
With CheckBox

If .Selected = True The
"A2" = 1
End I
End Wit
End Su

Thank you for your help