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