
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("D")) Is Nothing Then
If Target.Text = "A" Then
Target.Offset(0, 3).Select
ElseIf Target.Text = "D" Then
Target.Offset(0, 2).Select
End If
End If
End Sub
|
