Looping Checkboxs

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?

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

You can not use that referencing style and loop.

Instead use

Sub CommandButton1_Click()

For I = 1 To 4
x = ActiveSheet.CheckBoxes("Check Box " & I).Value
MsgBox x
Next

End Sub