Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
If Target.Column <> 24 And Target.Column <> 26 Then
Cancel = True
Exit Sub
End If
Select Case Target.Address
Case "$X$2"
Range("SelDestMailCc") = "X"
Range("SelDestMailCci") = ""
Case "$Z$2"
Range("SelDestMailCc") = ""
Range("SelDestMailCci") = "X"
End Select
If Not Intersect(Target, Range("SelDestMailCc")) Is Nothing Then
Target.Offset(0, 2) = IIf(Target = "X", "X", "")
Target = IIf(Target = "X", "", "X")
End If
If Not Intersect(Target, Range("SelDestMailCci")) Is Nothing Then
Target.Offset(0, -2) = IIf(Target = "X", "X", "")
Target = IIf(Target = "X", "", "X")
End If
Cancel = True
Application.EnableEvents = True
End Sub