Checkbox change event help

[Niss1]

I am doing some changes to an old excel sheet and i have a Label i wish to change to a checkbox(form control) (if possible)


This is the old code for the label:

Private Sub Label1_Click()
If Label1.Caption = Chr(252) Then
 Label1.Caption = ""
 rows("29:49").Hidden = True

 Else
 Label1.Caption = Chr(252)
 rows("29:49").Hidden = False

 End If
End Sub

I have tried to do this, but it doesnt work. Hopefully someone can give me some feedback on this.

Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
 rows("29:49").Hidden = False
 Else
 CheckBox1.Value = False
 rows("29:49").Hidden = True

 End If
End Sub

I have chosen a checkbox of the form control type.


Thanks in advance!

 

[Sektor]

You need ActiveX checkbox. Form's control can only be assigned to macro, or OnAction property can trigger some Sub.

 

[Niss1]

That worked perfectly fine of course

although i was hoping to use the normal checkboxes as they are visually much nicer than the activex ones.

 

[Sektor]

You can create one Sub and assign it to numerous Forms checkboxes.
Here's example.