Instead of

If "chk_ci" & i.Value = True Then

use

Me.Controls("chk_ci" & CStr(i.Value)).Value = True Then

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)







On Tue, 12 May 2009 13:31:03 -0700, alvin Kuiper
wrote:

Hi i use this on a checkbox event
Dim i As Integer
Dim a As Integer
a = 0
For i = 1 To 4
If Me.Controls("chk_ci" & i).Value = True Then
a = a + 1
End If
Next

This works but if i make the code in a modul and use it
i get an error on ME - and if i delete me I get an error on Controls
and if I just use :
If "chk_ci" & i.Value = True Then

Then i get an error on the varable i

Can someone help here?

Alvin