How about double-click?:


First enter this macro into a worksheet's code area (not a module):

Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
Cancel = True
If IsEmpty(Selection.Value) Then
Selection.Value = "x"
Else
Selection.Value = Selection.Value & "x"
End If
End Sub

Whenever you double-click a cell in that sheet, it will add an "x" to the
value.
--
Gary's Student


"PG Oriel" wrote:

I am a school teacher and use my interactive whiteboard a lot, which is away
from my keyboard. I have a spreadsheet which I log behavioural issues in with
a x, xx, 15 depending on severity of warning.

I have this in the background and open it when i need to input my warnings.
This involves me going to my desk and keying it in.

Is there a way to click on a cell with the mouse, change it to a x, then if
I click a second time to change it to a xx, and then on 3rd click to 15.

I can do it using buttons, but is there any way to do it using a clicking
sequence ona cell only??? Thanks!!!