sheet上的多个控件怎么遍历

excel sheet上放了多个checkbox控件，想遍历一下

 For i = CuRowStart To CurRowEnd
       If Me.Controls("CheckBox" & i).Value = True = True Then
       endi

可是发现Controls不是Me的对象，有哪位大侠帮忙解答下？   --------------------编程问答-------------------- For i = 1 To 4
Me.OLEObjects("CheckBox" & i).Object.Value = True
Next i

--------------------编程问答-------------------- 只有CommandBar对象或者CommandBarPopup对象才有Controls属性
--------------------编程问答-------------------- 所有的checkbox 用CheckBox做开头。
Dim ctl As Object

For Each ctl In Me.OLEObjects
        If InStr(ctl.Name, "CheckBox") > 0 Then
           'code
        end if
next --------------------编程问答-------------------- 学习啦。 --------------------编程问答-------------------- 学习中，帮楼主顶一顶。

补充：VB ,  VBA