Hi there,

I have the following code (which works great) to automatically insert the letter "X" into cells when clicked on.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rInt As Range
    Dim rCell As Range

    Set rInt = Intersect(Target, Range("C67:AG115"))
    If Not rInt Is Nothing Then
        For Each rCell In rInt
            rCell.Value = "x"
        Next
    End If
    Set rInt = Nothing
    Set rCell = Nothing
End Sub
I just wanted to know if it's possible to tweak it slightly to do something else.

I've got partial sections (i.e. Columns A-D, E-G,...). I'd like only one "X" to appear only once in the selection areas.

So if I click on a A15, the "X" appears, however if I then decide to click on C15, the "X" in A15 is removed and the "X" now appears in C15 instead.

I know I can use an OptionButton but I have quite a large range of cells this needs to occur and basically don't have hours to spend on clicking each OptionButton to change the cell reference.

Thanks