check or not check

the below code lets me double click a field to place a check mark in that field and double click again to remove it. I am trying to keep the function except I want to make it conditional for the “C” column and “D” columns where if there isa check mark in a field in column “A” and I decide to put a check mark in Column “D” the check mark in column “A” will clear off. for instance….A13 has the check mark….next to it is D13 and I now must double click the field in D13 to place the check mark and want the one already in A13 to disappear….and so on down the columns.

HELP ?



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range(“C13:C150,D13:D150,H13:H150”)) Is Nothing Then
Application.EnableEvents = False
If Target.Value = ChrW(&H2713) Then
Target.ClearContents
Cancel = True
Else
Target.Value = ChrW(&H2713)
Cancel = True
End If
End If
Application.EnableEvents = True
End Sub

By: JOHN HEDDINGER

Leave a Reply

Your email address will not be published. Required fields are marked *