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