First, create the follow procedures in a VBA module.

Public Sub IncrementSpecificCell()
With ThisWorkbook.Worksheets("Sheet1").Range("A1")
.Value = .Value + 1
End With
End Sub

Public Sub IncrementActiveCell()
With ActiveCell
.Value = .Value + 1
End With
End Sub

Public Sub ClearSpecificCell()
ThisWorkbook.Worksheets("Sheet1").Range("A1").Valu e = ""
End Sub

Public Sub ClearActiveCell()
ActiveCell.Value = ""
End Sub

Then, pick the ones you want to assign to command buttons.
IncrementSpecificCell always increments cell A1, regardless of what
cell happens to be active. IncrementActiveCell increments the active
cell. ClearSpecificCell always clears A1, regardless of what cell is
active. ClearActiveCell clears the active cell.

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)





On Fri, 28 Aug 2009 09:27:01 -0700, Mark N
wrote:

I want to assign a macro to a command button so that it increases the value
of a cell by 1
Thanks in advance if you can help me.