
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B2:e10"), Target) Is Nothing Then
If Target.Count = 1 Then
If Target.Column = 5 Then
Target.Offset(1, -3).Select
Else
Target.Offset(0, 1).Select
End If
End If
End If
End Sub |
