Install the following by right click on the sheet tab then
view code, and insert the following:
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
Cancel = True 'Get out of edit mode
If Target.Column <> 2 Then Exit Sub
If Target.Row = 1 Then Exit Sub 'ignore descriptive titles
If IsNumeric(ActiveCell) Then
ActiveCell.Value = ActiveCell.Value + 1
End If
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.