Выдает ошибку "Невозможно получить свойство Minverse класса WorkSheetFunction"

Option Explicit
Option Base 1
Dim h As Integer
Dim n, i, j, k As Single
Dim b() As Double
Dim a() As Double
Dim c() As Double
Dim x() As Double
Function f(a() As Double, b() As Double) As Double
f = WorksheetFunction.MMult(WorksheetFunction.MInverse(a()), b())
End Function
Private Sub ìåòîä_îáðàòíîé_ìàòðèöû_Click()
Range("A1:L100").Clear
n = Val(InputBox("Ââåäè ÷èñëî ñòðîê ìàòðèöû"))
ReDim a(n, n), c(n), b(n), x(n)
Cells(1, 1) = "Ìàòðèöà êîýôôèöèåíòîâ Ài"
Cells(1, 5) = "Âåêòîð  ñâîáîäíûõ ÷ëåíîâ Bi"
For i = 1 To n
For j = 1 To n
a(i, j) = Val(InputBox("a(" + Str(i) + "," + Str(j) + ")=", "Ââåäè êîýôôèöèåíòû ïðè íåèçâåñòíûõ"))
Next j
Next i
For i = 1 To n
b(i) = Val(InputBox("b(" + Str(i) + ")=", "Ââåäè ñâîáîäíûå ÷ëåíû"))
Next i
For i = 1 To n
For j = 1 To n
Cells(i + 1, j) = a(i, j)
Cells(i + 1, 5) = b(i)
Next j
Next i
For i = 1 To n
c(i) = f(a(), b())
Next i
End Sub

Sub Procedure_1()
 
    Dim myArray_1(1 To 2, 1 To 2) As Long
    Dim myArray_2() As Variant
    
    myArray_1(1, 1) = 1: myArray_1(1, 2) = 2
    myArray_1(2, 1) = 3: myArray_1(1, 2) = 4
    
    myArray_2() = Application.WorksheetFunction.MInverse(myArray_1())
 
End Sub

    myArray_1(1, 1) = 1: myArray_1(1, 2) = 2
    myArray_1(2, 1) = 1: myArray_1(1, 2) = 2

Function f(a() As Double, b() As Double) As Variant()
With WorksheetFunction
    f = .MMult(.MInverse(a()), .Transpose(b()))
End With
End Function

ReDim a(n, n), b(n, 1)