L
L. Howard
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
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