Hi Alan

Code runs and produces the debug result
ok ok

--
Regards
Roger Govier



"Alan Beban" wrote in message
...
Could someone run the following code in Excel2007 with n=65535 and then
n=65537 and report the results?

Sub abtest1
Dim arr1(), arr2(), iVar, n
n = 65535
'n = 65537
ReDim arr1(1 To n, 1 To 1)
arr1(4, 1) = "ok"
On Error Resume Next
arr2 = Application.Transpose(arr1)
If Err < 0 Then
MsgBox "Transpose doesn't work"
Err = 0
End If
iVar = Application.Index(arr1, 4, 1)
If Err < 0 Then
MsgBox "Index doesn't work"
Err = 0
End If
Debug.Print arr2(4), iVar
End Sub

Thanks,
Alan Beban

Bernard Liengme wrote:
I would expect TRANSPOSE and INDEX would take full advantage of the large
worksheet.
best wishes