testing code.

[Alphacsulb]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, Target.Column) <> "X" Then Target.Offset(0, 1).Select
End Sub