'А взят в диапазоне A1:A5
'
Function Test(A As Range) As Variant
Dim summ As Double
Dim n As Integer
Dim i As Integer

n = A.Count
For i = 1 To n
summ = summ + A(i, 1)
Next i
Test = summ

Лист1.Cells(2, 2) = summ
End Function

Почему в этом коде возникает циклическая ссылка

Здравствуйте, student-mpei, Вы писали:
SM>Почему в этом коде возникает циклическая ссылка
В коде циклической ссылки возникнуть никак не может. Циклическая ссылка возникает на листе в формуле -- там и смотри. Сервис->Зависимости формул->{и там смотри зависимости}.