Excel Workbook compile error after calling sub - arrays

Question

I'm trying to make a worksheet of dynamically generated checkboxes, so I made the below sub to re-name them so I would be able to refer to them later (since I get what the checkboxes are representing from another sub and can't hardcode there names in). It works fine, however it seems to be the cause of a strange error I'm getting. After I run the main sub in my macro I get a compile error whenever I try to run any macro's. The exact error is:
Compile error:
Object library invalid or contains references to object definitions that could not be found
This is an error that a bunch of other people have got but none seem to be in the same circumstances and none of the suggested fixes have worked for me.
In the actual macro reNameCheckBox1 (the class that seems to be causing the issue) is ran numerous times but when ran only once no problem occurs.
The problem class:
Sub reNameCheckBox1(newName As String, mainWB As Workbook)
Dim obj As OLEObject
Dim i As Integer
i = 1
With mainWB.Worksheets("Sheet1")
For Each obj In .OLEObjects
Debug.Print obj.name
If TypeName(obj.Object) = "CheckBox" And Left(obj.name, 8) = "CheckBox" Then
Debug.Print "Found it"
obj.name = newName
mainWB.Worksheets("Sheet1").OLEObjects(newName).Object.Caption = newName
Exit For
End If
Next obj
i = i + 1
End With
End Sub
How its called used when its causing problems:
For n = 1 To numberOfNames
mainWB.Worksheets("Sheet1").OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=48, Top:=checkBoxTop, Width:=96, Height:=30). _
Select
Call reNameCheckBox1("Name=" & arrayOfNames(n), mainWB)
checkBoxTop = checkBoxTop + 45
Next n
If anyone knows why this is causing problems or a better way to do what I'm trying to do it would be MUCH appreciated.
EDIT
As per comintern's suggestion, how the arrayOfNames is inilialized is shown below. Just a few things to note. 1) searchForParameters returns two lists, which i'll ill call arrayOfNames and otherNames, and in an attempt to return them both I stored them in one comfusingly organized array. 2) I didn't know LBound or UBound existed when I made this (i'm new to vba) and 3) results is organized as such,
-At zero the length of the entire results array is stored
-At one the length of arrayOfNames
-at the beginning of OtherNames its length is stored
So, taking that confusing mess and turning into arrayOfNames and otherNames looks like this.
Dim results As Variant
Dim arrayOfNames As String
Dim otherNames As String
Dim length as Integer
Dim arrayOfNamesLength as Integer
Dim otherNamesLength As Integer
Dim n, i As Integer
results = searchForParameters(currentWB) 'Current wb is the name of the wb its searching, which isnt the one the code's being ran out of
length = results(0)
arrayOfNamesLength = results(1)
otherNamesLength = results (arrayOfNamesLength + 2)
ReDim arrayOfNames(arrayOfNamesLength + 1)
ReDim otherNames(otherNamesLength)
For i = 0 To arrayOfNamesLength
arrayOfNames(i) = results(i + 1)
Next i
For n = 0 To otherNamesLength
OtherNames(n) = results(i + n + 1)
Next n
EDIT
As it turns out, the compile error this question was created to solve was not caused by any of the code here, but by a separate class. So if your having the same error I'm having, the solution won't be here. Since it has some really good answers on fixing the code I did have, I guess I'll just leave this here and hope someone finds it useful.
Cheers
-Ben J. Man

Answer 1

It's unclear whether your arrayOfNames has a one-based or zero-based index. I suspect the former. Use the LBound
UBound functions to define the scope of your array elements.
I am also suspect of the quoted 'named parameter'. You can use named parameters but not in that manner.
For n = LBound(arrayOfNames) To UBound(arrayOfNames)
mainWB.Worksheets("Sheet1").OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=48, Top:=checkBoxTop, Width:=96, Height:=30). _
Select
reNameCheckBox1 newName:=CStr(arrayOfNames(n)), mainWB:=mainWB
checkBoxTop = checkBoxTop + 45
Next n
I'm not sure that the Workbook Object Application.Selection property needs to be used like that. I recommend simply referring to the Workbook object as a parameter.
You might get a problem passing a variant element of a variant array as a string type parameter so I've cast it as a string.
Call isn't necessary and some people think it is antiquated. Use it if you like; it does no harm.

Answer 2

It isn't exactly clear why you are selecting the CheckBox returned from OLEObjects.Add and then immediately searching for it in reNameCheckBox1. Just grab a reference and rename it in your loop:
Dim cb As OLEObject
For n = LBound(arrayOfNames) To UBound(arrayOfNames)
Set cb = mainWB.Worksheets("Sheet1").OLEObjects.Add( _
ClassType:="Forms.CheckBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=48, _
Top:=checkBoxTop, _
Width:=96, _
Height:=30)
cb.Name = arrayOfNames(n)
cb.Object.Caption = arrayOfNames(n)
checkBoxTop = checkBoxTop + 45
Next n