M
MWL
I've got a number of check boxes which are currently hidden in rows 16:19.
How can you automatically unhide them when another check box (which isn't
hidden) is selected?
I've tried the following code but it objects when it gets to
"ActiveSheet.Shapes("CheckBox12").Select":
Private Sub CheckBox1_Click()
Rows("15:20").Select
Range("A20").Activate
Selection.EntireRow.Hidden = False
ActiveSheet.Shapes("CheckBox12").Select
Selection.Visible = True
ActiveSheet.Shapes("CheckBox13").Select
Selection.Visible = True
ActiveSheet.Shapes("CheckBox14").Select
Selection.Visible = True
ActiveSheet.Shapes("CheckBox15").Select
Selection.Visible = True
End Sub
How can you automatically unhide them when another check box (which isn't
hidden) is selected?
I've tried the following code but it objects when it gets to
"ActiveSheet.Shapes("CheckBox12").Select":
Private Sub CheckBox1_Click()
Rows("15:20").Select
Range("A20").Activate
Selection.EntireRow.Hidden = False
ActiveSheet.Shapes("CheckBox12").Select
Selection.Visible = True
ActiveSheet.Shapes("CheckBox13").Select
Selection.Visible = True
ActiveSheet.Shapes("CheckBox14").Select
Selection.Visible = True
ActiveSheet.Shapes("CheckBox15").Select
Selection.Visible = True
End Sub