Try this:

Private Sub CommandButton1_Click()
Dim x As Long
x = Range("a1").Value
x = x + 1
Range("a1").Value = x

End Sub


"Andy T via OfficeKB.com" wrote:

Is it possible to create a commandbutton that ads 1 to a specific cell (say
A1) each time you press it?