You're welcome.

Gord

On Mon, 28 Jan 2013 09:11:47 +0000, princejim
wrote:


'Gord Dibben[_2_ Wrote:
;1608920']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.-


Thanks Gord, brill just what I wanted, that makes the job of data entry
easy.