There is a conflict if a Row is subsequently deleted.
get R/T error '13'
type mismatch;
Can this be avoided? - How?

"Mike" wrote in message
...
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