Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Cells(1, Target.Column) <> "X" Then Target.Offset(0, 1).Select End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Cells(1, Target.Column) <> "X" Then Target.Offset(0, 1).Select End Sub
[VBA]Use the VBA button[/VBA]
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'