Executing a VBA Macro using a change in a data validation cell as the trigger

Hi Norie,

I now have another question. The code below works fine in debug (F5), however my expectation was that when the user enters a number in cell "B5" (named Enter_Shift) that the code would execute. Can you please tell me why it is not executing?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Enter_Shift")) Is Nothing Then
Call checkInt
End If
End Sub


Sub checkInt()

If Range("Enter_Shift") > 0 And Range("Enter_Shift") < Range("Max_Shift") Then
MsgBox "OK"
Else
MsgBox "Specified Shift is out of Range"
End If

End Sub