Easy one

This does what you want all you have to do is create the buttons! however it doesnt count the amount of 0.1's that are added!

regards,
Simon

Sub SumIt()
Sheets("Sheet2").Range("B20") = "=SUM(Sheet1!B1:B20)"

End Sub
Sub AddIt()
Do
Sheets("Sheet1").Range("B22") = Sheets("Sheet1").Range("B22").Value + 0.1

If Sheets("Sheet1").Range("B22") = Sheets("Sheet2").Range("B20").Value Then
Exit Sub
End If
Loop Until Sheets("Sheet1").Range("B22") = Sheets("Sheet2").Range("B20").Value
End Sub

Sorry for stepping on your toes Simon but I think I bet you to it.

Just some advice you should add .value when you are refer to values for a particular cell oh and they way you did it allows the user to see what the formula is but you can use this function application.worksheetfunction.sum (range) check my example.

I did say i wasn't an expert.........see limited knowledge gets you knowledge..thanks for the pointer and i did check your example.........Very smart!

Thanks again oh great one!

Regards,
Simon

Hi all,

Just want to say thanks for the help. It works perfectly and this little app has saved us a WHOLE LOT of time!!!

Thank you very-very much.
NNB

glad it has been some sort of assistance and that I was able to help