Why the.. does this not work???
 

How should it respond when i is zero? The help item "Dim Statement"
regarding Option Base may be relevant here.

On Thu, 28 Aug 2003 06:23:11 GMT, "Stefan Lewold"
wrote:

'Why is it that the rutine below works when MyArr is ReDimensioned outside
the loop and not within 'the loop as in the Sub 'DoesNotWork()' ?

Dim MyArr() As Variant
Dim Nms As Variant

Sub Working()
Nms = Array("Joe", "John", "Mary", "Fred", "Stu", "Dan", "Steeffe")
ReDim Preserve MyArr(UBound(Nms), 1) As Variant
For i = 0 To UBound(Nms)
MyArr(i, 0) = CStr(i)
MyArr(i, 1) = Nms(i)
Next i
End Sub

Sub DoesNotWork()
Nms = Array("Joe", "John", "Mary", "Fred", "Stu", "Dan", "Steeffe")
For i = 0 To UBound(Nms)
ReDim Preserve MyArr(i, 1) As Variant
MyArr(i, 0) = CStr(i)
MyArr(i, 1) = Nms(i)
Next i
End Sub