I'm trying to loop through a group of checkboxes, but i'm having trouble
figuring out how to go about it.

here is my current code:

Dim o As OLEObject
Dim iCCCount, iCCColumn As Integer
Dim iCGCount, iCGColumn As Integer
iCCCount = 1
iCCColumn = 1
iCGCount = 1
iCGColumn = 1
'MsgBox cgAdvertiser.Caption
Dim c As CheckBox
For Each o In Sheet1.OLEObjects
If TypeName(o.Object) = "CheckBox" Then
If c.GroupName = "CG" Then
iCGCount = iCGCount + 1
End If
End If
Next

so when it finds the type checkbox object i want to get the groupname.
however i get an error telling me that object var or with var is not set.

any help woulb be appreciated.
thanks