I think your loop will quit on the first match it finds.
For arrCount=0 To UBound(arrObjects)
If arrObjects(arrCount).contentText=strQtName Then
Set CurrentObj=arrObjects(UBound(arrObjects))
ObjFound=True
Exit For
End If
Next
-----------------------
It looks to me like when your If statement finds your string, you are always setting the CurrentObj to the object at UBound. Should it be more like
Set CurrentObj=arrObjects(arrCount)
because you want the object that just matched your string, right?
Right now when you match the string, you are always saving this Set CurrentObj=arrObjects(UBound(arrObjects))
but the string was found at arrObjects(arrCount) so that's the one you want to save in CurrentObj
