What is wrong?

[Jonasraf]

Sub CheckBox1_Click()

If CheckBox1.Value = True Then
Application.ScreenUpdating = False
Worksheets("Data").Range("b37").Select
ActiveCell.Value = -14
Worksheets("WogB").Select
Range("b34").Select
Application.ScreenUpdating = True
End If



If CheckBox1.Value = False Then
Application.ScreenUpdating = False
Worksheets("Data").Select
Range("b37").Select
ActiveCell.Value = 0
Worksheets("WogB").Select
Range("b34").Select
Application.ScreenUpdating = True
End If

End Sub

I cannot see what is wrong. When I click the checkbox. Nothing happens. Not even a error appears. I have also tried to use
ActiveCell.FormulaR1C1 = -14


Help please.

Regards,
Jonas

 

[zendog1960]

Try this

Sub CheckBox1_Click()

If CheckBox1.Value = True Then
Application.ScreenUpdating = False
Worksheets("Data").Range("b37").Select
ActiveCell.Value = -14
Worksheets("WogB").Select
Range("b34").Select
Application.ScreenUpdating = True else

If CheckBox1.Value = False Then
Application.ScreenUpdating = False
Worksheets("Data").Select
Range("b37").Select
ActiveCell.Value = 0
Worksheets("WogB").Select
Range("b34").Select
Application.ScreenUpdating = True
End If

End Sub

 

[Jonasraf]

No did not work

 

[Scott Huish]

No need to do all that selecting, but is the checkbox on a worksheet and if so which sheet?

 

[Jonasraf]

The checkbox is on the WogB sheet.

How can I skipp all the selecting?

 

[Scott Huish]

Try this:

Private Sub CheckBox1_Click()
Worksheets("Data").Range("B37") = 14 * CheckBox1.Value
Range("B34").Select
End Sub

 

[Jonasraf]

This works

Thank you HOTPEPPER