Right-click on sheet tab and "View Code" to open sheet module.

Copy/paste this code into that module.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Range, Cancel As Boolean)
ActiveCell.Value = 1
Cancel = True
End Sub

Close and d-click on any cell with a zero.


Gord

On Fri, 25 Jan 2013 19:18:47 +0000, princejim
wrote:


I have tables with lots of cells containing a zero, I would like to
change cells at random to a 1 just by clicking on the cell, new user so
any help would be much appriciated.