testing code.

Code:

---

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

---

:devil2:

[VBA]Use the VBA button[/VBA]