Try this for starters
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count 1 Then
Exit Sub
ElseIf Target.Address < "$A$1" Then
Exit Sub
End If
If Range("b1").Value 3 Then
Range("b1").Value = 0
Else
Range("b1").Value = Range("b1") + 1
End If
Range("c1").Activate
End Su
--
Message posted from
http://www.ExcelForum.com