65535 - ok ok
65537 - transpose doesn't work index doesn't work

--
Jim
"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