Userform复选框代码错误

Question

以下是我正在尝试的代码。我觉得这很简单，但我担心我的无知是我的毁灭。代码检查工作表＆＃34; A＆＃34;上的复选框是否为真，然后取消隐藏工作表＆＃34; C＆＃34;并将特定值放入表格＆＃34; B＆＃34;。当我点击该框时，没有任何反应。

Sub CheckBox164_Click()

    If CheckBox164.Value = True Then

        Active.Workbook.Unprotect

        Sheets("00 00 01").Visible = -1
        Worksheets("Summary").Cells(8, 2).Value = "GENERAL CONDITIONS"

        Active.Workbook.Protect True, True

    End If

End Sub