Unable to get MMult property - Error 1004

[trough]

This seems like a simple code but not working. I get Error 1004 "Unable to get the MMult property of the WorksheetFunction class". I tried making the three variables Variant but still doesn't work. Any suggestions?

Option Explicit
Option Base 1

Sub DoStuff1()

 'Find x in Ax=B

 Dim x() As Double
 Dim B() As Double
 Dim A() As Double
 
 ReDim x(1 To 2)
 ReDim B(1 To 2)
 ReDim A(1 To 2, 1 To 2)
 
 A(1, 1) = 2.5
 A(1, 2) = 6
 A(2, 1) = 4.2
 A(2, 2) = 3.7
 
 B(1) = 50
 B(2) = 75.5

 With Application.WorksheetFunction
  x = .MMult(.MInverse(A), B)
 End With

End Sub

 

[Micron]

Just a shot in the dark but maybe x() = ?

 

[Domenic]

The number of columns in A must be the same size as the number of rows in B. Otherwise, you'll get an error.