Hi again Jon,

Having another look at the code I am not sure you need the following line.
If Target.Count 1 Then Exit Sub

Also because the offset is the same for each Case you can code it like the
following.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub

If IsEmpty(Target.Value) Or _
Len(Target) < 11 Then Exit Sub

Select Case Target.Row
Case 11, 23, 35, 47
Target.Offset(-10, 2).Select
End Select
End Sub

--
Regards,

OssieMac