Как прописать одно условие для всех CheckBox - VB

Формулировка задачи:

Подскажите пожалуйста: у меня порядка 100 CheckBox, как прописать одно уловие для всех моих CheckBox. Вот мой код:

Private Sub CheckBox1_Click()
    Dim NextRow As Long
' Проверка активности листа Лист2
    Sheets("Лист2").Activate
' Определение следующей пустой строки
    NextRow = Cells(Rows.Count, 5).End(xlUp).Row + 1
' Запись замечания
    If CheckBox1.Value = True Then Cells(NextRow, 5) = CheckBox1.Caption
    If Cells(NextRow, 5) <> 0 Then Cells(NextRow, 4) = UserForm5.CommandButton1.Caption
   If Cells(NextRow, 5) <> 0 Then Cells(NextRow, 3) = UserForm4.TextBox1
   If Cells(NextRow, 5) <> 0 Then Cells(NextRow, 2) = UserForm3.TextBox3
   If Cells(NextRow, 5) <> 0 Then Cells(NextRow, 1) = UserForm3.TextBox2

Решение задачи: «Как прописать одно условие для всех CheckBox»

textual
                            Листинг программы 
                        

                            Sub chck()
    Dim obj As OLEObject
    For Each obj In Worksheets("Лист1").OLEObjects
        If obj.Name Like "CheckBox*" Then
            Cells(obj.Index, 5) = "CheckBox" & obj.Index & " = " & obj.Object
        End If
    Next
End Sub
 
Private Sub CheckBox1_Click()
    chck
End Sub
Private Sub CheckBox2_Click()
    chck
End Sub
'или вызывать chck с любого другого места
                        