Visibility of content controls

[New@VB]

Still doesn't work. I must be still be doing something wrong. I've started an new file that only contains these some basic text and these two content controls. The file was saved as a .docm

Drop down options in CCDDL are: "Issues found" and "No issues".

Sub UpdateTextBoxVisibility()
    If ActiveDocument.SelectContentControlsByTitle("CCDDL")(1).Range.Text = "Issues found" Then
        ActiveDocument.SelectContentControlsByTitle("CCTB")(1).Range.Font.Hidden = False
    Else
        ActiveDocument.SelectContentControlsByTitle("CCTB")(1).Range.Font.Hidden = True
    End If
End Sub

Also, should the code be entered into the "Module" or "Class Module" window?
Thanks!!!
Paul.