Snasui Excel Forum

Code: Select all

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("C1:F5")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
            
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Code: Select all

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("C1:F5")) Is Nothing Then
'        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.Parent.Cells(Target.Row, 3).Resize(1, 4).ClearContents
'        Else
            ActiveCell.Value = ChrW(&H2713)
'        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub