Hummmmmmm, not sure what you're doing, but try this:
Right-click the sheet where you want this; paste into the window that opens:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Not Intersect(Target, Range("A1:AZ100")) Is Nothing Then
If Target = "P" Then
Target = vbNullString
ElseIf Target = vbNullString Then
Target = "P"
Else
End If
End If
End Sub
Format text as Wingdings 2!!
Double-click any cell to add check marks.