Помогите даю 100 баллов!

Public Function UserFunction(items As Variant) As Integer

Dim result As Integer

For Each Item In items

If Item < 0 Then

result = result + (Item * Item)

End If

Next Item

UserFunction = result

End Function

Этот код вставляется как новый модуль, Alt+F11, Insert -> Module. После нужно сохранить книгу с поддержкой макросов, это обязательно.

Пример использования ниже: