conditional format

[hedcase10x]

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

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel-questions/1076971-add-condition-my-code.html#post5173938

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).

Also please ensure that your thread title represents what you are after.
his has nothing to do with conditional formatting