Might be easiest to add a spinner from the Forms Toolbar or Control
Toolbox..

But a macro to do what you want. Add a button and assign the macro.

Sub add_one()
With ActiveSheet.Range("A1")
.Value = .Value + 1
End With
End Sub


Gord Dibben MS Excel MVP

On Tue, 24 Nov 2009 06:25:03 -0800, mswisher
wrote:

Customer Survey- When a button or cell is pressed once it will add 1 to
another existing field and every time it is pressed it will add another 1.