Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("G:V")) Is Nothing Then Exit Sub Cancel = True Target.Value = IIf(Target.Value = "", 0, "") End Sub