Thread: Formula to always capture "X"

Hi J-Coop
Welcome to the forum
you could use a worksheet event

Private Sub Worksheet_SelectionChange(ByVal _
                    Target As Excel.Range)
    Dim myRange As Range
   Application.EnableEvents = False
    On Error Resume Next
    Set myRange = Intersect(Range("A1:A10"), Target)
    If Not myRange Is Nothing Then
           If Target.Value = "X" Then
           Target.Value = ""
           Else
           Target.Value = "X"
           End If
    End If
 Application.EnableEvents = True
End Sub