Looping through a group of checkboxes

[asdfasdf]

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(bject) = "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

 

[Tushar Mehta]

Where are you initializing the variable 'c'?

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

 

[JMB]

Maybe this will work

If o.GroupName = "CG" Then

 

[asdfasdf]

I'm sorry, initially i was doing:
Set c = o

but i don't know how to cast the object to a checkbox object.

 

[asdfasdf]

JMB:
yea sorry i have tried so manythings that i am mixing code

when i do o.GroupName...
I get object doesn't support this propery or method

 

[JMB]

Try this.

If bject.GroupName = "CG" Then

JMB:
yea sorry i have tried so manythings that i am mixing code

when i do o.GroupName...
I get object doesn't support this propery or method

 

[Tushar Mehta]

A checkbox cannot be part of a group. If you check XL VBA help for
groupname you will find it only applies to an optionbutton.

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

 

[asdfasdf]

JMB ahhh awesome that worked!!! thanks a bunch!

Try this.

If bject.GroupName = "CG" Then

 

[asdfasdf]

I might not explictly be able to group them, but i can at least give the
group of checkbox's a group name and check for that group name. if my
checkbox is in that group, then i can do stuff to that checkbox based upon
the group. i.e. put it in another sheet in a specific area.

A checkbox cannot be part of a group. If you check XL VBA help for
groupname you will find it only applies to an optionbutton.

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

I'm sorry, initially i was doing:
Set c = o

but i don't know how to cast the object to a checkbox object.

Where are you initializing the variable 'c'?

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

 

[JMB]

you're welcome.

JMB ahhh awesome that worked!!! thanks a bunch!