如何：创建在代码中使用私有子复选框名称变量的VBA代码？

Question

我正在尝试使用Excel中的ActiveX复选框，当单击该复选框时，它将更改一个单元格值以添加1。问题是，当我在不同的单元格值中使用同一复选框时，我需要重复此VBA代码重复很多次。如何在VBA代码中为每个新的单元格值引用自动生成的复选框名称变量？

这是一个Excel电子表格，当上载带有“已检查”信息的新报告时，该电子表格用于更新数据库。

Private Sub CheckBox21_Click()

Range("L2").Activate

    'Don't want to type CheckBoxXX each time, just find way to automatically reference?'
    If CheckBox21.Value = True Then
        ActiveCell.Value = ActiveCell.Value + 1
    Else
        If ActiveCell.Value > 0 Then
        ActiveCell.Value = ActiveCell.Value - 1
    Else
        End If
    End If


_____________________________________________________________________________
'Next line'

Private Sub CheckBox22_Click()

Range("L2").Activate

    If CheckBox22.Value = True Then
        ActiveCell.Value = ActiveCell.Value + 1
    Else
        If ActiveCell.Value > 0 Then
        ActiveCell.Value = ActiveCell.Value - 1
    Else
        End If
    End If

End Sub

是否不想每次都输入CheckBoxXX，只是想办法自动引用？