VBA để chọn tất cả các hộp kiểm FormControl

Tôi có một mã để chọn / bỏ chọn tất cả các hộp kiểm với một hộp kiểm "chính". Mã này dành cho các điều khiển OLEObjects / Active X và tôi gặp khó khăn khi viết lại để hoạt động với các hộp kiểm Điều khiển biểu mẫu. Ý tưởng nào không?

 Private Sub CheckBox1_Click()

    Dim i As Integer

    For i = 2 To 39
        ActiveSheet.OLEObjects("CheckBox" & i).Object.Value = ActiveSheet.CheckBox1.Value
    Next i

End Sub

Điều này dường như để làm việc:

Sub ytrewq()
    Dim v As Variant
    With ActiveSheet
        v = .CheckBoxes(1).Value
        n = .CheckBoxes.Count
        For i = 2 To n
            .CheckBoxes(i) = v
        Next i
    End With
End Sub

Cách khác:

Sub Ia_Click()

    For i = 41 To 78
         ActiveSheet.CheckBoxes(i).Value = ActiveSheet.CheckBoxes(40).Value
    Next i
End Sub