How do I chane the properties of a CheckBox using VBA?

Hi,

I am trying to use VBA to change the caption of checkboxes in "Sheet 2" when I change the value of a cell "A1" in "Sheet 1".
This code is working:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, ActiveSheet.Range("A1")) Is Nothing Then Exit Sub
Worksheets("Sheet 2").CheckBox1.Caption = "New Caption"

End Sub

But there are 6 checkboxes in Sheet 2 and I would like to do something like this:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, ActiveSheet.Range("A1")) Is Nothing Then Exit Sub
For i = 0 to 5

Worksheets("Sheet 2").Control("CheckBox" & i+1).Caption = "Box" & i+1

Next i

End Sub

This doesn't work.. So I guess the Control-function is wrong. Any suggestions on what I should do?

YES! It worked! Thanks!