How to add check mark in a cell with double clicking in Excel?

Normally, for inserting a check mark in a cell, you need to get into the Symbol dialog box, find the check mark symbol and insert it manually. But it is not so easy to find out the check mark symbol in the Symbol dialog box as there are numerous symbols listed inside. How to quickly add a check mark in a cell in Excel? This article will show you a VBA method to easily add check mark in a cell with double clicking only.

Double click to add check mark in a cell with VBA code


Double click to add check mark in a cell with VBA code

The following VBA code can help you add check mark in a cell with double clicking. Please do as follows.

1. Open the worksheet you need to add check mark into the cell, then right click and select View Code from the right-clicking menu.

2. In the Microsoft Visual Basic for Applications window, copy and paste the below VBA code into the Code window.

VBA code: Double click to add check mark in a cell

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Note: In the code, B1:B10 is the range you will add check mark with double clicking. Please change it based on your need.

3. Press the Alt + Q keys to close the Microsoft Visual Basic for Applications window and return to the worksheet.

Now, double click on any cell in range B1:B10, the check mark will be entered automatically. And double clicking the cell again, the inserted check mark will be removed.

If you need to frequently use the check marks in your Excel daily work, here I recommend the Auto Text Utility of Kutools for Excel. With this feature, you can save a check mark as an auto text entry, and then resue it in the future with only one click in Excel as the below demo shown.
Download and try it now! ( 30-day free trail)


Related articles:


The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    leoflute · 28 days ago
    Is there a way to loop this code so that it is on a lot of worksheets in one workbook?
    • To post as a guest, your comment is unpublished.
      crystal · 11 days ago
      Hi leoflute,
      After pressing the Alt + F11 keys to open the Microsoft Visual Basic for Applications window, please double click ThisWorkbook to open the ThisWorkbook(Code) window, and then copy the below code into the code window. Don't forget to change the sheet names and the cell range in the code.
      Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'Updated by Extendoffice 20201012 Dim xStrRg, xStrWs, xStrWsName As String Dim xEEBol, xWSNBol, xBol As Boolean Dim xArrWs Dim xArrRg Dim xI, xJ As Integer Dim xWs As Worksheet Dim xRg As Range xStrWs = "Sheet5,Sheet1,Sheet2" 'The specific worksheet names xStrRg = "B3:B10" 'The range of cells you will insert check marks xArrWs = Split(xStrWs, ",") xArrRg = Split(xStrRg, ",") xEEBol = Application.EnableEvents Application.EnableEvents = False On Error Resume Next xStrWsName = Sh.Name xBol = False xWSNBol = False For xI = 0 To UBound(xArrWs) If xStrWsName = xArrWs(xI) Then xWSNBol = True Exit For End If Next xI If xWSNBol Then Set xWs = Application.Worksheets.Item(xArrWs(xI)) For xJ = 0 To UBound(xArrRg) Set xRg = Sh.Range(xArrRg(xJ)) If Not Intersect(Target, xRg) Is Nothing Then xBol = True Exit For End If Next xJ End If If xBol Then If ActiveCell.Value = ChrW(&H2713) Then ActiveCell.ClearContents Else ActiveCell.Value = ChrW(&H2713) End If Cancel = True End If Application.EnableEvents = xEEBol End Sub

  • To post as a guest, your comment is unpublished.
    Luiz Carlos Dias · 1 years ago
    como eu faço pra inserir a marca de seleção na célula, porém sem deletar o número que estiver digitado nela ou seja, a marca sairia na frente do número quando eu der duplo clique... e quando eu quizer apagar a marca, eu dou duplo clique novamente e a célula voltaria ao normar (continuaria apenas o número).
    • To post as a guest, your comment is unpublished.
      Tadao Kano · 1 years ago
      Ola Luiz, tente essa alteracao. Ira funcionar nas celulas A2:A10 e D2:D5, altere conforme sua necessidade.

      Tadao


      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If Not Intersect(Target, Union(Range("A2:A10"), Range("D2:D5"))) Is Nothing Then
      Application.EnableEvents = False
      If Left(ActiveCell.Value, 1) = ChrW(&H2713) Then
      ActiveCell.Value = Right(ActiveCell, Len(ActiveCell) - 1)
      ActiveCell.HorizontalAlignment = xlRight
      Else
      ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
      End If
      Cancel = True
      End If
      Application.EnableEvents = True
      End Sub