Adding Form Control Buttons

Trying to figure out the quick and easiest way to do this. I have 1000 cells that I need to add buttons that basically when you press the button associated with the cell will add 1 to the value. Is there an easy way to add these 1000 buttons?

Thanks

If you want to do this with one button, here is my
suggestion. The attached uses a grid of 10 columns by 100 rows.

Private Sub CommandButton1_Click()
Dim cAddress As String
Dim cCellNewValue As Long
    
    cAddress = ActiveCell.Address
    If ActiveCell.Row > 100 Or ActiveCell.Column > 10 Then GoTo Exit_CommandButton1_Click
    
    cCellNewValue = Range(cAddress).Value + 1
    Range(cAddress).Value = cCellNewValue
    
Exit_CommandButton1_Click:
    
    Range(cAddress).Select

End Sub

I need a button for each cell. so that the button linked to a certain cell can be pushed to add one to that cel.