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 ?
Code:
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