Toggle values in an Excel cell

Question

Have a survey spreadsheet that I want to be able to toggle values with the click of the mouse.  i.e.  Highlight a cell, click the mouse and put a value ('X') into the cell.  If the cell is already holding an 'X', then put a blank into the cell.

Answer 1

Right-click on the sheet tab and "View Code"

Copy/paste the event code into that module.

Edit to suit then Alt + q to return to the sheet.

Select a cell to place X, select it again to remove X

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub

    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then

  If ActiveCell.Value = "X" Then

        ActiveCell.Value = ""

    Else

        ActiveCell.Value = "X"

    End If

    End If

End Sub

Gord

Answer 2

Thank you Gord!  Just what I needed!

Steve.