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.
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
If Target.Cells.Count > 1 Then Exit Sub
With Target
.Font.Name = "Marlett"
.Font.Size = 12
.Value = "a"
End With
Cancel = True
End Sub
Right-click on the sheet tab and "View Code"
Copy/paste the code into that sheet module.
Gord Dibben MS Excel MVP
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.