使用Activex复选框作为参数

Question

每8个选项（复选框）我有400个问题。每个选项（复选框）都有下面的代码。我想在不编辑复选框号的情况下完成代码。

代码如下。

Sub checkbox1_click()
    If checkbox1.value = true then checkbox1.topleftcell.value = 
        cells(1, checkbox1.topleftcell.column)
    If checkbox1.valie = false then checkbox1.topleftcell.value= ""
End sub

代码很简单但我想将每个自动编辑的checkboxnumber链接或连接到代码内容中的checkboxnumber。有可能吗？