Unable to get the CheckBoxes property of the Worksheet class

[bartsimpsong]

Hello, I have been working on this small project and I it works to create checkboxes and check what boxes are checked. However, at the end of checking which boxes are checked there is a pop up error message saying Run-Time error '1004':
Unable to get the CheckBoxes property of the Worksheet class. These are the lines of code, can anybody see the error? Thank you very much

Sub IsBoxChecked()

Dim titles(200) As String
Dim wks As Worksheet
Dim nTitles As Integer
Dim totalCheckBoxes As Integer

totalCheckBoxes = 0

Set wks = ActiveWorkbook.Worksheets("Sheet1")

For i = 1 To 199
If Trim(wks.Cells(4, i).Value) = "" Then
nTitles = i - 1
Exit For
End If
titles(i - 1) = wks.Cells(4, i).Value
totalCheckBoxes = totalCheckBoxes + 1
Next

j = 1

For j = 1 To totalCheckBoxes
If ActiveSheet.checkBoxes(titles(j)).Value = 1 Then
MsgBox titles(j) & " CheckBox Is Checked"

Else
MsgBox titles(j) & " CheckBox is UnChecked"
End If
Next

End Sub

 

[VBA Geek]

the worksheet does not have a property or method called checkboxes, use oleobjects instead

 

[bartsimpsong]

Thank you very much for your help VBA Geek. I made the change you advised but I get the error message = Run-time error '1004'
Unable to get the OLEObjects property of the Worksheet class.

Sub IsBoxChecked()

Dim titles(200) As String
Dim wks As Worksheet
Dim nTitles As Integer
Dim totalCheckBoxes As Integer

totalCheckBoxes = 0

Set wks = ActiveWorkbook.Worksheets("Sheet1")

For i = 1 To 199
If Trim(wks.Cells(4, i).Value) = "" Then
nTitles = i - 1
Exit For
End If
titles(i - 1) = wks.Cells(4, i).Value
totalCheckBoxes = totalCheckBoxes + 1
Next

j = 0

For j = 0 To nTitles 'totalCheckBoxes
If ActiveSheet.OLEObjects(titles(j)).Value = 1 Then
MsgBox titles(j) & " CheckBox Is Checked"

Else
MsgBox titles(j) & " CheckBox is UnChecked"
End If
Next

End Sub

I appreciate any help. Also I would like to add the detail that it works good until the end when it finishes checking which box is checked with my original version, but when I change it to oleobjects it does not run at all.

 

[VBA Geek]

[COLOR=#333333]If ActiveSheet.OLEObjects(titles(j))[/COLOR][COLOR=#b22222][B].OBJECT.[/B][/COLOR][COLOR=#333333]Value = TRUE Then[/COLOR]

 

[bartsimpsong]

Same error message my friend, thanks for trying

Run-time error '1004'
Unable to get the OLEObjects property of the Worksheet class.

 

[VBA Geek]

what excel version are you on? are you on a MAC?

Same error message my friend, thanks for trying

Run-time error '1004'
Unable to get the OLEObjects property of the Worksheet class.