Excel 2000 Enter "x" with the click of a mouse 1

[MJamison07]

I would like to enter an "x" in a cell with the click of a mouse and delete the "x" with a second click of a mouse. Like an off/on switch. Is there a way I can do that in Excel 2000?

Thank you,
Martha

 

[acron]

If a DoubleClick is acceptable you can use something like the following :

Private Sub Worksheet_BeforeDoubleClick( _
        ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Range("A1:F20"), Target) Is Nothing Then
        If Target = "x" Then
            Target = ""
        Else
            Target = "x"
        End If
    End If
End Sub

This code restricts the action to the range A1:F20, which you can change to suit your needs.

To use the code select the sheet you want it to apply to, right click on the sheet tab, select View Code and copy the above code to the window that appears.

A.C.

 

[MJamison07]

acron,
That is exactly what I needed. Thank you.
Martha