How to create a checkbox subgroup in excel 2007?

[Dana McDonie]

I have a list of level 1 checkboxes and I want to add a level 2 set of checkboxes to some of them, but I only want them to show when level 1 is checked. For example, if I check the box marked "fish", I want three more boxes to appear below it that I can also check for types of fish. Below is the coding I was advised to use, but it's not working, when I click the fish box nothing happens. I'm not very familiar with VB but I have about 25 different categories I want to add multiple second level checkboxes to. Can you help me with what I'm doing wrong? Thank you!

Code:

Sub CheckBox1_Click()

End Sub

Private Sub Fish_Click()
Range("A5").EntireRow.Hidden = Not (OLEObjects("Fish").Object)
End Sub

[maxamis4]

You would have to use events. When you check you will need to reload the macros. So on check (in access you use me.reload) there needs to be a method where it reloads which will make the boxes appear or disappear.

Private Sub CheckBox2_Click()
    Application.ScreenUpdating = False
    With Sheet2.CheckBox2
      If .Value = True Then
          Rows("30:59").EntireRow.Hidden = False
      Else
          Rows("30:59").EntireRow.Hidden = True
      End If
   End With
 
Sheet2.Range("A1").Select
End Sub
 
 

See this code I found seems to refresh data.