Hi

I have created 9 checkboxes in a particular sheet in a single row,
each in a single cell.
first checkbox is named 'All' and other 8 are named 'A' to 'H'. I want
when I will check 'All' checkbox all the other 8 checkboxes should
also be checked and similarly when i uncheck 'All' others should also
be unchecked. But the other 8 checkboxes can be individually checked
or unchecked. Actually these checkboxes are created to display some
data. I have done coding in Macro to display all the data when 'All'
is checked and to display individual data when other 8 checkboxes 'A'
to 'H' are checked or unchecked but in the sheet I want on checking
'All' checkbox other 8 checkboxes should also be checked bydefault.
So suggest me how can I this.

Hello
If you are using checkboxes from the Controls tool bar:
Private Sub All_Click()
For Each chkbx In ActiveSheet.OLEObjects
If chkbx.Name Like "CheckBox*" Then
ActiveSheet.OLEObjects(chkbx.Name).Object.Value = All.Value
End If
Next
End Sub

HTH
Cordially
Pascal
<(E-Mail Removed)> a écrit dans le message de news:
(E-Mail Removed)...
> Hi
>
> I have created 9 checkboxes in a particular sheet in a single row,
> each in a single cell.
> first checkbox is named 'All' and other 8 are named 'A' to 'H'. I want
> when I will check 'All' checkbox all the other 8 checkboxes should
> also be checked and similarly when i uncheck 'All' others should also
> be unchecked. But the other 8 checkboxes can be individually checked
> or unchecked. Actually these checkboxes are created to display some
> data. I have done coding in Macro to display all the data when 'All'
> is checked and to display individual data when other 8 checkboxes 'A'
> to 'H' are checked or unchecked but in the sheet I want on checking
> 'All' checkbox other 8 checkboxes should also be checked bydefault.
> So suggest me how can I this.
>

Sorry, just noticed chekbox names from your orignal message.
Please amend:
For Each chkbx In ActiveSheet.OLEObjects
Select Case chkbx.Name
Case "A", "B", "C", "D", "E", "F", "G", "H"
ActiveSheet.OLEObjects(chkbx.Name).Object.Value = All.Value
End Select
Next

HTH
Cordially
Pascal

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%(E-Mail Removed)...
> Hello
> If you are using checkboxes from the Controls tool bar:
> Private Sub All_Click()
> For Each chkbx In ActiveSheet.OLEObjects
> If chkbx.Name Like "CheckBox*" Then
> ActiveSheet.OLEObjects(chkbx.Name).Object.Value = All.Value
> End If
> Next
> End Sub
>
> HTH
> Cordially
> Pascal
> <(E-Mail Removed)> a écrit dans le message de news:
> (E-Mail Removed)...
>> Hi
>>
>> I have created 9 checkboxes in a particular sheet in a single row,
>> each in a single cell.
>> first checkbox is named 'All' and other 8 are named 'A' to 'H'. I want
>> when I will check 'All' checkbox all the other 8 checkboxes should
>> also be checked and similarly when i uncheck 'All' others should also
>> be unchecked. But the other 8 checkboxes can be individually checked
>> or unchecked. Actually these checkboxes are created to display some
>> data. I have done coding in Macro to display all the data when 'All'
>> is checked and to display individual data when other 8 checkboxes 'A'
>> to 'H' are checked or unchecked but in the sheet I want on checking
>> 'All' checkbox other 8 checkboxes should also be checked bydefault.
>> So suggest me how can I this.
>>
>
>

With ActiveSheet
.CheckBoxes("A").Value = .CheckBoxes("All").Value
.CheckBoxes("B").Value = .CheckBoxes("All").Value
'etc.
End With



--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi
>
> I have created 9 checkboxes in a particular sheet in a single row,
> each in a single cell.
> first checkbox is named 'All' and other 8 are named 'A' to 'H'. I want
> when I will check 'All' checkbox all the other 8 checkboxes should
> also be checked and similarly when i uncheck 'All' others should also
> be unchecked. But the other 8 checkboxes can be individually checked
> or unchecked. Actually these checkboxes are created to display some
> data. I have done coding in Macro to display all the data when 'All'
> is checked and to display individual data when other 8 checkboxes 'A'
> to 'H' are checked or unchecked but in the sheet I want on checking
> 'All' checkbox other 8 checkboxes should also be checked bydefault.
> So suggest me how can I this.
>