ParramArray as Variant

[CrAz3D]

Code Select Expand


Public Sub LoadObjects(ParamArray Obj() As Variant)
ReDim PlugY(0)
ReDim PlugL(0)

On Error GoTo LoadER
   For i = LBound(Obj) To UBound(Obj) Step 2
       MsgBox Obj(i + 1)
       PlugY(UBound(PlugY)) = Obj(i)

       PlugL(UBound(PlugL)) = Obj(i + 1)
       ReDim Preserve PlugY(UBound(PlugY) + 1)
   Next i
Exit Sub
LoadER: MsgBox "Load OBs" & Err.Description
End Function

Error I recieve is that the object variable or with variable is not set, it highlights:

Code Select Expand

PlugY(UBound(PlugY)) = Obj(i)

I am accessing this sub by:

Code Select Expand


ClassName.LoadObjects Queue, "Queue", Funcs, "Functions"


Queue & Funcs are both classes

Any ideas?


*Sorry about the code tags, for some reason I can't get them to work, I change it & then they go back to how they were before

[CrAz3D]

Code Select Expand

Set PlugY(UBound(PlugY)) = Obj(i)
Forgot one little word, set