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