Robert,

This is how you do it

If Me.Controls("Checkbox" & i).Value = True Then
MsgBox "Found"
End If


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Robert Lowe" wrote in message
...
Hi,
I have a form with 24 checkboxes. (CheckBox1...CheckBox24)
Is there a way to make the following work?
This works...
If CheckBox3 Then MsgBox "Three"
This doesn't...
i = 3
z = "CheckBox" & LTrim(Str(i))
If z Then MsgBox "Three"

Thank you