Try it like this...

Dim Count As Integer
Dim Prd As Integer
Dim Cntrl As Control
Prd = 5
Count = 0
For Each Cntrl In UserForm1.Controls
If TypeOf Cntrl Is MSForms.CheckBox Then
Count = Count + 1
If Count < Prd Then
Cntrl.Enabled = True
End If
End If
Next

UserForm1.Show


Rick



"jean" wrote in message
...
Hi
I have one UserForm1 with 14 CheckBox All are Enabled = false
I would like make part of these checkBox Enabled=True
And Show the userForm1 with all checkBox some enabled other disabled
to permit to check only some of checkboxes Enabled.

Sub Print_period()
Dim Cbk As CheckBox
Dim Count As Integer
Dim Prd As Integer
Prd = 5
Count = 0
For Each Cbk In UserForm1.checkbox '13 checkbox
Count = Count + 1
If Count < Prd Then
Cbx.Enabled = True
End If
Next

UserForm1.Show

But Something is wrong.

Thank you for your help.

Jean