Checkbox or radio buttons that make other cells appear or disappear?

Hi,

I am looking for a way that someone can answer a yes or no question, i.e. "are you a member of the golf club?" by using radio buttons or checkbox, or anything similar. Based on the answer, I would like cells to appear below the question, for example in B3 another question would be "how many guests would you like to invite?" and B2 would be their answer but is preset to "0"

This uses ActiveX Checkbox and assumes the row you want to hide or unhide is 3, change A3 accordingly

Private Sub CheckBox1_Click()

    If ActiveSheet.CheckBox1.Value = True Then

        ActiveSheet.Range("A3").EntireRow.Hidden = False

    Else
    
        ActiveSheet.Range("A3").EntireRow.Hidden = True
        
    End If
    
End Sub

I'm getting an error with this.

Run-time error '1004':
Unable to set the Hidden property of the Range class

Can you please post your workbook for review?