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

:devil2:

[mdmackillop]

Use the VBA button