[okshef]

Передавайте массив ячеек как Range

Код:

Function SUMSQ(Scalar, Interval As Range)
SUMSQ = 0
For Each c In Interval
SUMSQ = SUMSQ + (Scalar - c) ^ 2
Next
End Function

Проверил - работает!