Hello All,
I would like to see if anyone could help me with this, I am not that familiar with code.

What I need is in addition to the color change on DoubleClick I also would like the Value of "1" to appear in the cell.

Any assistance is greatly appreciated.

Yo



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [N12E302]) Is Nothing Then
With Target.Interior
Select Case .ColorIndex
Case xlNone: .ColorIndex = 41
Case 4: .ColorIndex = 41
Case Else: .ColorIndex = xlNone
End Select
End With
Cancel = True
End If
End Sub