Option Explicit Public ClickCount As Double Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub ClickCount = ClickCount + 1 Target.Value = ClickCount End Sub