You have posted twice but here is the answer again.

Dim MyResult As Double

MyResult = WorksheetFunction.Covar(Range("A2:A6"), Range("B2:B6"))

MsgBox MyResult

--
Regards,

OssieMac


"Teena" wrote:

Hi
How can I calculate covariance matrix in excel vba?

Many thanks