Internal error 51 with a range-object to a ParamArray from immediate window ?

[onidarbe]

Why do I get an "Internal error" '51' when trying to pass a range-object-parameter to a new sub ParamArray-parameter from the immediate window ?

Sub sStart()
    sTest Selection
End Sub
Sub sTest(oPar)
    Set oTest = oPar
    Stop    [COLOR=#008000]' here I type in the immediate window:[/COLOR]
[COLOR=#008000]                ' sPrint oTest   without errors[/COLOR]
[COLOR=#008000]                ' sPrint oPar     Run-time error '51': Internal error  [/COLOR]:eeek:
End Sub
Sub sPrint(ParamArray xAllThis())
    Debug.Print "ok"
End Sub