Norman-
This worked like a charm and introduced me to a whole new world of Excel
functionality! Thanks 10^6

-Ivan

"Norman Jones" wrote:

Hi Ivan,

Try:

'=============
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range

Set Rng = Me.Range("A1:A100") '<<=== CHANGE
Set Rng = Intersect(Rng, Target)

If Not Rng Is Nothing Then
On Error GoTo XIT
Application.EnableEvents = False
Rng.Value = "X"
End If

XIT:
Application.EnableEvents = True
End Sub
'<<=============

This is worksheet event code and should be pasted into
the worksheets's code module (not a standard module
and not the workbook's ThisWorkbook module):

Right-click the worksheet's tab
Select 'View Code' from the menu and paste the code.
Alt-F11 to return to Excel.

---
Regards,
Norman


"Ivan Laars" wrote in message
...
I'm trying to create a macro that I can apply to worksheets where I need
to
classify terms into one or more categories. It would be great if I could
just
click in the cells that represent the category for each term instead of
clicking and then hitting X.

Thanks,
Ivan