怎么没人理我?

下面这个又怎么不行?

Function abc(x As Range)
Dim m As Integer, n As Integer
m = x.Rows.Count
n = x.Columns.Count

Dim matrix()
Redim matrix(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
matrix(i, j) = x(i, j)
Next j
Next i

Dim sum As Single
sum = Application.WorksheetFunction.sum(matrix)

Dim norm()
ReDim norm(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
norm(i, j) = matrix(i, j) / sum                <==REPORTING ERROR HERE!!!
Next i
Next j

abc = norm
End Function

How about the following one?
Actually, x = A*B*Transpose(A) should be a scalar, but I can't do something likes 5*x, x^2, sin(x), ...
What is the problem?




Sub a()
x = Application.WorksheetFunction.MMult(Application.WorksheetFunction.MMult(Range("a2:b2"), Range("D2:E3")), Application.WorksheetFunction.Transpose(Range("A2:b2")))
Range("a5") = Sqr(x)       <-- Reporting Error Here!!!
End Sub