'А взят в диапазоне 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

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