why do i get "range out of bounds"

[blw2002]

why do i get "range out of bounds" for v(i) = x(i) * y(i)?


Function element_mul(x, y)
Dim i As Long
Dim v()

ReDim v(1 To size(x))
For i = LBound(x) To UBound(x)

**v(i) = x(i) * y(i)**
Next

element_mul = v
End Function

Sub main_ols()
Dim x, y, z,
Dim strMsg As String
Dim rng1 As Range
Dim rng2 As Range
Dim lngRow As Long

Set rng1 = Range([B3], [B52])
Set rng2 = Range([C3], [C52])

x = RangeToArray(rng1)
y = RangeToArray(rng2)

For lngRow = 1 To UBound(x)
x(lngRow, 1) = UCase$(x(lngRow, 1))
y(lngRow, 1) = UCase$(y(lngRow, 1))
Next
rng1 = x
rng2 = y


z = regress_orthols(x, y)

 

[shg]

Cross-posted at http://www.excelforum.com/excel-programming-vba-macros/847655-why-do-i-get-range-out-of-bounds.html