how to avoid continually triggering a selection change when writing to a cell in the selection

Question

I have a rage of cells $C$9:$K$9.  the user can mark only one of these cells with an x.  I have a selection change sub looking at this range and want to clear the contents of the range when the users marks a different cell with an "x" leaving only the newly selected cell with the "x".  Problem is when I clear the contents in vba it triggers the selection change event again and causes an infinite loop.  What is the fastest way to accomplish what I want?

Thanks

Dan

Answer 1

... Problem is when I clear the contents in vba it triggers the selection change event again and causes an infinite loop ...

Use EnableEvents to halt processing events while you run your code routine and reenable the event trigger before exiting the function.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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

        Application.EnableEvents = False

        ' your code here

        Application.EnableEvents = True

    End If

End Sub

Answer 2

Thanks.  Totally slipped my mind to use enableEvents.