How to add 1 to a cell value by double-clicking in Excel?

This article will show you a method to add 1 to a cell value automatically by double-clicking it in Excel.

Use double-click to increase cell value by 1 with VBA code

Use double-click to increase cell value by 1 with VBA code

The following VBA code will walk you through the steps to add 1 to the value in cell A1 by double-clicking. Please follow these instructions.

1. Right-click the sheet tab where you need to add 1 to the value in cell A1 by double-clicking. Then click View Code from the right-clicking menu.

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
      Range("A1").Value = Range("A1").Value + 1
      Cancel = True
    End If
End Sub

Note: In the code, A1 is the cell where 1 will be added each time you double-click. You can adjust it as needed.

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

Now, double-clicking cell A1 will add 1 to the existing value, as shown in the screenshot below.

Related articles:

• How to auto add/enter current date/time in a cell with double clicking in Excel?
• How to add check mark in a cell with double clicking in Excel?