Как сделать цикл по проверке Checkboxes в VBA?

Question

[Artemm1029]

Код для двух checkbox-ов по отдельность работает:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Cells(3, 2).Copy Worksheets("Запрос").Cells(3, 2)
Else: Worksheets("Запрос").Cells(3, 2).Clear
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Cells(4, 2).Copy Worksheets("Запрос").Cells(4, 2)
Else: Worksheets("Запрос").Cells(4, 2).Clear
End If
End Sub

Пытаюсь написать цикл, а он не работает, что не так?
Private Sub CheckBoxes_Click()
Dim i As Integer
Dim j As Integer
j = i + 2
For i = 3 To 12
If CheckBox(i).Value = True Then
Cells(j, 2).Copy Worksheets("Запрос").Cells(j, 2)
Else: Worksheets("Запрос").Cells(j, 2).Clear
End If
End Sub

Заранее спасибо!

Answer 1

[Антон Федорян]

www.planetaexcel.ru/forum/?FID=8&PAGE_NAME=read&TI...

www.excel-vba.ru/forum/index.php?topic=1901.0