Now I think about it, this would be a better test:

Sub testIt4()
Dim aAllArrays(1 To 10) As Variant
Dim y(1 To 10) As Worksheet
Set y(1) = ThisWorkbook.Worksheets(1)
aAllArrays(1) = y
MsgBox ObjPtr(aAllArrays(1)(1))
MsgBox aAllArrays(1)(1) Is y(1)
Set y(1) = ThisWorkbook.Worksheets(2)
MsgBox ObjPtr(aAllArrays(1)(1))
MsgBox aAllArrays(1)(1) Is y(1)
End Sub

So aAllArrays(1) is a copy of y, not a reference to y, right?

Jamie.

--