D
Daniel
Can someone tell why this routine does not work for an array larger than 50?
thanks
Sub inve()
Dim Arr1(1 To 255, 1 To 255) As Double
Dim Arr2 As Variant
Dim R As Long
Dim C As Long
'values
For i = 1 To 250
For j = 1 To 250
Arr1(i, j) = Sheets("abc").Cells(i, j)
Next j
Next i
Arr2 = Application.WorksheetFunction.MInverse(Arr1)
'End Sub
thanks
Sub inve()
Dim Arr1(1 To 255, 1 To 255) As Double
Dim Arr2 As Variant
Dim R As Long
Dim C As Long
'values
For i = 1 To 250
For j = 1 To 250
Arr1(i, j) = Sheets("abc").Cells(i, j)
Next j
Next i
Arr2 = Application.WorksheetFunction.MInverse(Arr1)
'End Sub