I have been trying to combine 2 macros into 1 worksheet, I just want to utilize my mouse with a single click for a check mark and double click for x how can I do this? I attached the macro that I use it's the same formula: the string = "C2:C80, E2:E80" and Target.Value = "r" for the second macro. Target.Cells.Counts = 2 

```
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Const sCheckAddress As String = "B2:B80, D2:D80"

    Dim rngIntersect As Range

    If Target.Cells.Count = 1 Then

        On Error Resume Next
        Set rngIntersect = Intersect(Me.Range(sCheckAddress), Target)
        On Error GoTo 0

        If Not (rngIntersect Is Nothing) Then
            Target.Font.Name = "Marlett"
        Target.Value = "a"

        End If

    End If

End Sub

```