if the are from the forms toolbar

for each c in worksheets("sheet2").Checkboxes

if from the control toolbox toolbar

Dim cBox as MSForms.CheckBox
Dim obj as OleObject
for each obj in Worksheets("Sheet2").OleObjects
if Typeof Obj.Object is MSForms.Checkbox then
set cBox = Obj.Object
msgbox cBox.Name & " - " & cBox.Value
end if
Next

If you have use names like cb1, cb2
Dim cb as MsForms.Checkbox
for i = 1 to 11
set cb = Activesheet.OleObjects("cb" & i).Object
msgbox cb.Name & " - " & cb.Value
Next

--
Regards,
Tom Ogilvy



"Tre_cool" wrote in
message ...

Hi,
I have two sheets, one's a check sheet with 11 check boxes in it and
the other is for trending the results each time the checksheet is used.
I want to copy over the results of the check sheet (i.e if the checkbox
is checked or not) over to the other page by adding true or false for
each question on the trending sheet.

I was trying to loop through the checkboxes but I couldn't get that to
work.

Can someone please help me?

Thanks in advance
Trevor


--
Tre_cool
------------------------------------------------------------------------
Tre_cool's Profile:
http://www.excelforum.com/member.php...o&userid=26416
View this thread: http://www.excelforum.com/showthread...hreadid=507852