Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
DL = Range("E" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("F2:F" & DL)) Is Nothing Then
Target.Value = IIf(Target.Value = "X", "", "X")
Range("C3").Value = IIf(Target.Value = "X", Range("C3").Value - Target.Offset(, -1), Range("C3").Value + Target.Offset(, -1))
End If
End Sub