BrdgBldr,
This code should get the calculations:
Function DownDev(MAR As Double, PeriodReturns As Range)
Dim TestReturn As Double
Dim cel As Range
Dim SumReturns As Double
For Each cel In PeriodReturns.Cells
TestReturn = cel - MAR
If TestReturn > 0 Then TestReturn = 0
SumReturns = SumReturns + TestReturn ^ 2
Next
DownDev = (SumReturns / PeriodReturns.Cells.Count) ^ 0.5
End Function
I used a formula of
=DownDev(B14,C19:C210)
to get 11.35%. If the MAR is an annual rate, then you should probably use:
=DownDev(B14/12,C19:C210)
which nets 3.61%.
Patrick