Another way...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B5,J5")) Is Nothing Then Exit Sub
If Target.Count = 1 Then
Application.EnableEvents = False
On Error Resume Next
Select Case Target.Address
Case "$B$5": Call Scan_In_Check
Case "$J$5": Call Scan_Out_Check
End Select
Application.EnableEvents = True
End If
End Sub

Sub Scan_In_Check()
MsgBox "B5 changed!"
End Sub

Sub Scan_Out_Check()
MsgBox "J5 changed!"
End Sub

...depending, of course, on what those called procedures do.

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion