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
Bookmarks