# VbA question ( function)

1. May 14, 2008

### rose_55

help pleaase . here is the problem :If a number in a cell is 10, then the total should be 55 which is: 1+2+3+4+5+6+7+8+9+10 , how do i write a module-level( function) like that .this is what i have so far:
Public Function myfunction()
Dim sum As Double
Dim i As Integer
For i = 1 To 1000 Step 1
sum = sum + cells(i,1)....( THIS IS THE PART THAT I'M STUCK , I'M NOT GOOD AT MATH )
Next
myfunction= sum
End Function

Last edited: May 14, 2008
2. May 15, 2008

### Integral

Staff Emeritus
Your function sums up the contents of the first column for 1000 rows. You need the upper limit of your loop to be determined by the cell which contains 10.

For i = 1 to Cells( row, column of cell where 10 lives)

sum = sum+i

next i