View Single Post
 
Old 07-12-2012, 02:32 AM
gsrikanth gsrikanth is offline Windows XP Office XP
Competent Performer
 
Join Date: Dec 2011
Posts: 133
gsrikanth is on a distinguished road
Default macro not working (on click increment)

Code:
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
Reply With Quote