Move to a cell
Hi Bob,
Does this Worksheetevent help?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("c2").EntireColumn) Is Nothing) Then
If LCase(Target.Value) = "yes" Or LCase(Target.Value) = "y" Then
Target.Offset(0, 1).Activate
End If
End If
End Sub
Mike, from Luxembourg
|