View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
NoodNutt[_2_] NoodNutt[_2_] is offline
external usenet poster
 
Posts: 39
Default 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