Deleting rows when Worksheet_Change active
False alarm.
For those interested in the work around:
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
|