Nathan,

Here is one case. In this example, note that I have a named range MyRange
equal to the range B1:B30. You can change this range to be the cells you
want to increment.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim MyRange As Range
Set MyRange = Range("B1:B30")
Set isect = Application.Intersect(Target, MyRange)
If isect Is Nothing Then
Else
If IsNumeric(ActiveCell.Value) Then ActiveCell.Value = ActiveCell.Value + 1
End If
End Sub


Mike

"Nathan77" wrote:


That sounds like a possible solution. I can't say I know how to apply a
doubleclick property to cells. Any chance you might be able to direct
me to a sample?


--
Nathan77
------------------------------------------------------------------------
Nathan77's Profile: http://www.excelforum.com/member.php...o&userid=26553
View this thread: http://www.excelforum.com/showthread...hreadid=398165