Change_Event target either of two cells

Giganews Newsgroups
Subject: Change_Event target either of two cells
Posted by:  L. Howard (lhkitt…@comcast.net)
Date: Thu, 29 May 2014

This event code is giving me fits.

If I change B5 it does its work just fine.
Then if I change J5 it does its work and sends B5's called code into a continual loop for about 20 reps then errors out and the workbook freezes up.

Close, reopen repeat.  Freeze.

I have used a few other exclusion lines from a googled site to be sure I had all the correct syntax but this is not working out.

I want make an entry in either B5 or J5 and run two different codes.

If I put each code on a separate button, both work just fine.

thanks,
Howard

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B5,J5")) Is Nothing Then

If Target.Count > 1 Then Exit Sub

  If Target = Range("B5") Then
    Scan_In_Check
  End If

  If Target = Range("J5") Then
    Scan_Out_Check
  End If

End If
End Sub

Replies