title: 2 Macros in 1 worksheet, single click for check mark and double click for x
body: <p>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    </p>
  
  <pre><code>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
  </code></pre>