Skip to content

Instantly share code, notes, and snippets.

@DataSolveProblems
Created February 17, 2019 08:18
Show Gist options
  • Save DataSolveProblems/65c5b0be0390cf7215a1c3ac3bbbac42 to your computer and use it in GitHub Desktop.
Save DataSolveProblems/65c5b0be0390cf7215a1c3ac3bbbac42 to your computer and use it in GitHub Desktop.
Insert & Remove Check Mark When You Double Click Mouse
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target.Value <> Chr(214) Then
With Target
.Value = Chr(214)
.Font.Name = "Symbol"
.Font.FontStyle = "Regular"
.Font.Size = 12
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
ElseIf Target.Column = 1 And Target.Value = Chr(214) Then
Target.ClearContents
End If
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment