1… depends on how you are getting the data to the cell… if programmatically then just reject non-numeric values, if user input, modify the keydown of active cell to only accept numeric characters
loop thru the cells in each column and add them up… and then it depends on where you want to put the “answer”
dim sum as double
dim Column as Integer = 0
for row as integer = 0 to ListBox1.ListCount-1
sum = sum + val(ListBox1.cell(row, 1))
next
Label1.Text=str(sum)
It loops through the cells and parses the result into the label.
dim sum as double
dim Column as Integer = 0
for row as integer = 0 to ListBox1.ListCount-1
sum = sum + val(ListBox1.cell(row, 1))
next
Label1.Text=str(sum)
It loops through the cells and parses the result into the label.[/quote]