BUG: Run-time error '51' Internal error, ParamArray from Immediate window

[onidarbe]

I narrowed it don't to this:

Function test(oRange)  [COLOR=#008000]'called by A1:  =test(B1)[/COLOR]
    test2 oRange       [COLOR=#008000]'this works[/COLOR]
    Stop              [COLOR=#008000] 'BUG: "test2 oRange" in the Immediate window while here in debugmode gives:  "Run-time error '51': Internal error"[/COLOR]
End Function
Function test2(ParamArray xAllThis())
    Debug.Print "ok"
End Function

Does anyone know why or how to solve this? thanks
ps: I use the "test2" to print all variables to debug my code.

 

[onidarbe]

Well, I just found other reports of this, all not answerd

Seems the only way now it to first copy the range before calling the function with the ParamArray

Function test(oRange)  [COLOR=#008000]'called by A1:  =test(B1)
[/COLOR]    set oCopy = oRange
    test2 oRange       [COLOR=#008000]'this works[/COLOR]
    Stop              [COLOR=#008000] 'BUG: "test2 oRange" in the Immediate window while here in debugmode gives: [/COLOR][COLOR=#008000]"Run-time error '51': Internal error"
[/COLOR][COLOR=#008000]                       '     "test2 oCopy" seems to work though [/COLOR];-)
End Function
Function test2(ParamArray xAllThis())
    Debug.Print "ok" 
[COLOR=#333333]End Function
[/COLOR]