Function sss(n As Integer) As Long
Dim i As Long, m As Long
If n < 1 Then Exit Function
For i = 1 To n
m = m + i
Next
sss = m + sss(n - 1)
End Function
