Double Click Event

[RLJ]

How can I change this code to work with a Defined Name "QC"?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As 
Boolean) 
    If Target.Column <> 4 Then Exit Sub ' choose column Number 
    If Target.Count > 1 Then Exit Sub 
    If Target.Value = "" Then 
        Target.Font.Name = "Marlett" 
        Target = "a" 
    Else 
        Target.Font.Name = "Arial" ' set to your normal default font 
        Target = "" 
    End If 
End Sub

 

[VoG]

Try

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("QC")) Is Nothing Then Exit Sub ' choose column Number
    If Target.Count > 1 Then Exit Sub
    Cancel = True
    If Target.Value = "" Then
        Target.Font.Name = "Marlett"
        Target.Value = "a"
    Else
        Target.Font.Name = "Arial" ' set to your normal default font
        Target.ClearContents
    End If
End Sub

 

[lenze]

Change

If Target.Column <> 4 Then Exit Sub ' choose column Number

to

If Intersect(Target,Range("QC"))Is Nothing Then Exit Sub

 

[RLJ]

Perfect... Thanks