What is wrong with this VBA code?

[karraj]

This function displays #value if the matrix dimension is greater than 73*73! It works fine otherwise
Any pointers on why I am having problems would be great.
Thanks,
Karraj

Function fullmatrix(matrix) As Variant
Set therange = matrix
nrows = matrix.Rows.Count
ReDim matrix(1 To nrows, 1 To nrows) As Double
Dim outp1() As Double
ReDim outp1(1 To nrows, 1 To nrows)
For i = 1 To nrows
For j = 1 To i
outp1(i, j) = therange.Cells(i, j)
Next
Next
For j = 1 To nrows
For i = j + 1 To nrows
outp1(j, i) = outp1(i, j)
Next
Next

 

[Russell Hauf]

I think maybe you forgot the end of the function?

 

[karraj]

I forgot to cut/copy paste the endfunction. My code has it.
Karraj

 

[Russell Hauf]

What exactly are you trying to accomplish with this? You don't set anything to fullmatrix...