I have a Userform with 6 Checkboxes on it. What I want it to do is if there
are 4 worksheets in the workbook then 4 of the checkboxes would be enabled
and 2 of the checkboxes would be disabled, if there are 3 worksheets in the
workbook then 4 of the checkboxes would be enabled and 3 of the checkboxes
would be disabled, and so on, is this possible?
Thanks

something like this would work

Private Sub UserForm_Initialize()
wscount=activeworkbook.worksheets.count
If wscount<6 then
CheckBox6.Enabled = False
End If
If wscount<5 then
CheckBox5.Enabled = False
End If

'ADD THE REST HERE

End Sub

--
Paul Cordts


"jnf40" wrote:

> I have a Userform with 6 Checkboxes on it. What I want it to do is if there
> are 4 worksheets in the workbook then 4 of the checkboxes would be enabled
> and 2 of the checkboxes would be disabled, if there are 3 worksheets in the
> workbook then 4 of the checkboxes would be enabled and 3 of the checkboxes
> would be disabled, and so on, is this possible?
> Thanks

Instead of handling each Checkbox separately, you can do it in a loop
instead...

Private Sub UserForm_Initialize()
Dim X As Long
Dim WScount As Long
WScount = ActiveWorkbook.Worksheets.Count
For X = 1 To 6
Me.Controls("CheckBox" & CStr(X)).Enabled = (X <= WScount)
Next
End Sub

Rick


"Paul Cordts" <(E-Mail Removed)> wrote in message
news:AD9E4CEA-6337-461E-93DE-(E-Mail Removed)...
> something like this would work
>
> Private Sub UserForm_Initialize()
> wscount=activeworkbook.worksheets.count
> If wscount<6 then
> CheckBox6.Enabled = False
> End If
> If wscount<5 then
> CheckBox5.Enabled = False
> End If
>
> 'ADD THE REST HERE
>
> End Sub
>
> --
> Paul Cordts
>
>
> "jnf40" wrote:
>
>> I have a Userform with 6 Checkboxes on it. What I want it to do is if
>> there
>> are 4 worksheets in the workbook then 4 of the checkboxes would be
>> enabled
>> and 2 of the checkboxes would be disabled, if there are 3 worksheets in
>> the
>> workbook then 4 of the checkboxes would be enabled and 3 of the
>> checkboxes
>> would be disabled, and so on, is this possible?
>> Thanks