Checkbox Code

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How do I make this work?

Private Sub CheckBox1_Click()
With CheckBox1

If .Selected = True Then
"A2" = 10
End If
End With
End Sub

Thank you for your help
 
(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
 
Back
Top