just found an answer....

For i = 1 to 3
CheckBoxStr = "CheckBox" + CStr(i)
c = ActiveSheet.OLEObjects(CheckBoxStr).Object.value
...
next

how very odd...

--
pls don't email me. i won't read it.