Yes,

Sub Button1_Click()
With Sheet1 ' Changer to suit
..Select
If Range("A1").Value < "" Then ' Change A1 to suit
Range("A1").Value = Range("A1").Value + 1
End If
End With
End Sub


Corey....

"Excel Noob" wrote in message
...
Is there a way, via a macro or some such, that I could add one to the value
of a cell by pushing a button or something, rather than having to manually
change the value?