Could anybody please give me some ideas for this problem.
Ref:All the controls I have used are ActiveX and emmbedded into a
worksheet.

I am trying to loop through a grouped set of checkboxes and if the
value is true then I want to load the Caption of the checkbox into a
listbox, or a TextBox. I can get everything to work except loading the
caption of the checkBox into the listBox. I can get the Caption to load
into a Listbox if I use the click event of a checkbox itself but I
can't seem to get it to work within the loop.
Note: The counter is for testing only.
Private Sub CommandButton1_Click()
Dim OLEObj As OLEObject
i = 0
For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
If OLEObj.Object.GroupName = "ImmediateCauseAct" Then
If OLEObj.Object.Value = True Then
ListBox1.AddItem OLEObj.Oject.Caption ??Problem Line
i = i + 1
End If
End If
End If
Next OLEObj
MsgBox i
End Sub

Private Sub CommandButton1_Click()
Dim OLEObj As Object
Dim i As Long
i = 0
For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
If OLEObj.Object.GroupName = "ImmediateCauseAct" Then
If OLEObj.Object.Value = True Then
ListBox1.AddItem OLEObj.Object.Caption
i = i + 1
End If
End If
End If
Next OLEObj
MsgBox i
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Peterd" wrote in message
oups.com...
Could anybody please give me some ideas for this problem.
Ref:All the controls I have used are ActiveX and emmbedded into a
worksheet.

I am trying to loop through a grouped set of checkboxes and if the
value is true then I want to load the Caption of the checkbox into a
listbox, or a TextBox. I can get everything to work except loading the
caption of the checkBox into the listBox. I can get the Caption to load
into a Listbox if I use the click event of a checkbox itself but I
can't seem to get it to work within the loop.
Note: The counter is for testing only.
Private Sub CommandButton1_Click()
Dim OLEObj As OLEObject
i = 0
For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
If OLEObj.Object.GroupName = "ImmediateCauseAct" Then
If OLEObj.Object.Value = True Then
ListBox1.AddItem OLEObj.Oject.Caption ??Problem Line
i = i + 1
End If
End If
End If
Next OLEObj
MsgBox i
End Sub

So easy, I have spent about a week reading through posts trying to
solve this, thanks very much bob