I am not sure about single click but you can do this using double click.

Right click on the sheet where you want the increment to happen, select View code and copy this code -
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = Target.Value + 1
End Sub