Sorry about being gone so long... Christmas Lunch. I just can't pass up free
food.

Try this. Check boxes are from the control toolbox. My assumption is that
the first box added is the one you want to be the select all.

Private Sub CheckBox1_Click()
Dim cbx As OLEObject
Dim wks As Worksheet

Set wks = Sheets("Sheet1")
For Each cbx In wks.OLEObjects
If cbx.OLEType = 2 Then
If CheckBox1.Value = True Then
cbx.Object.Value = True
Else
cbx.Object.Value = False
End If
End If
Next cbx
End Sub

--
HTH...

Jim Thomlinson


"wvsweeney@hotmail.com" wrote:

> Ok, thanks. Now how would I do that? Sorry, I'm new to this.
>
> Bill
>
>