Hi Mark,

Am Mon, 16 Nov 2020 17:32:30 -0800 (PST) schrieb NoodNutt:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C9:C42")) Is Nothing Then
If Target.Cells.Count 1 Then Exit Sub
If Target.Value = "YARD" Then
Target.Offset(0, 7).Select
Else
Target.Offset(0, 1).Select
End If
End If

If Not Intersect(Target, Range("H9:H42")) Is Nothing Then
If Target.Cells.Count 1 Then Exit Sub
Target.Offset(0, 2).Select
End If

End Sub

try:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("C9:C42,H9:H42")) Is Nothing _
Or Target.Count 1 Then Exit Sub

Select Case Target.Column
Case 3
If Target.Value = "YARD" Then
Target.Offset(, 7).Select
Else
Target.Offset(, 1).Select
End If
Case 8
Target.Offset(, 2).Select
End Select
End Sub


Regards
Claus B.
--
Windows10
Office 2016