Tom,
I recently 'discovered' that redim preserve can be used
to redim a 1 dimensional array from 0based to 1based..
and vice versa
Sub foo()
Dim v
'fill it 0based assumes option base 0
v = Array(1, 2, 3)
'make it 1based
ReDim Preserve v(1 To UBound(v) + 1)
Stop
ReDim Preserve v(0 To UBound(v) - 1)
Stop
End Sub
keepITcool
< email : keepitcool chello nl (with @ and .)
< homepage:
http://members.chello.nl/keepitcool
"Tom Ogilvy" wrote :
'Return 0 based for compatibility
ReDim v0(0 To UBound(v1) - 1)
For i = 0 To UBound(v0): v0(i) = v1(i + 1): Next
Split = v0