Looping Checkboxs

[jaimie1664]

Hello again everyone - I am just trying to loop through checkbox's but it doesnt seem to work

the code that works is this

Sub CommandButton1_Click()
For I = 1 To 4
x = ActiveSheet.[Check Box 1].Value
MsgBox x
Next
End Sub

this works fine, but when i put the I in (see below) it doesnt work

Sub CommandButton1_Click()
For I = 1 To 4
x = ActiveSheet.[Check Box I].Value
MsgBox x
Next
End Sub

any thoughts anyone?