Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("g52:g98")) Is Nothing Then Exit Sub
If Target = "x" Then
Target = ""
Target.Offset(0, 1).Select
Else
Target = "x"
Target.Offset(0, 1).Select
End If
End Sub