Hiding checkboxes based on cell value

[MissingInAction]

Hi everyone.
I'm busy creating an application form where users would apply for network, phone, etc. access from the IT department. In an effort to make the form as simple as possible for users to understand, I'm making use of quite a few conditional formatting, data validations, etc.
My question is this. I have a question on the form asking if the user needs computer equipment. If the answer is yes (answer is in E37), I want checkboxes to be visible so that the user can select things like laptops, desktops, etc.
The first prize would be if I could do this without VBA code, but I doubt that is possible. I have tried the solution I found here: Hide Checkbox based on cell value but it did not work in my case. Here is the code I'm using, modified from the previously mentioned thread:

Private Sub Equipment_Change()
    If ActiveSheet.Range("E37").Value = "Yes" Then
        ActiveSheet.Shapes("Equipment").Visible = False
    Else
        ActiveSheet.Shapes("Equipment").Visible = True
    End If
End Sub

I do have a checkbox on that sheet called "equipment". I have written "equipment" in the name box next to the formula bar. I assume this is the correct place. I have tried both the form control checkbox and the Active X checkbox (renaming both "equipment"), since I do not know what the difference is, apart from some of the right click options that changes.

Thank you

 

[mart37]

The namebox is for giving names to a cell!
You need to use a name like: ActiveSheet.Shapes("CheckBox1")

 

[MissingInAction]

Are you saying it will not accept that name if I type it in the namebox? When I view the source for the tick box, it opens VBA and shows the following:

Sub Equipment_Click()

End Sub

I therefor assumed it accepted the name.

 

[mart37]

You are right.
Maybe you can use an other event: Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveSheet.Range("E37").Value = "Yes" Then
            ActiveSheet.Shapes("Equipment").Visible = True
        Else
            ActiveSheet.Shapes("Equipment").Visible = False
    End If
End Sub

 

[MissingInAction]

That's perfect. Thank you.