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