You could try the Calculate event:
<font face=Calibri><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Calculate()<br> <SPAN style="color:#00007F">Dim</SPAN> rng <SPAN style="color:#00007F">As</SPAN> Range<br> <br> <SPAN style="color:#00007F">Set</SPAN> rng = Range("D3")<br> <br> <SPAN style="color:#00007F">If</SPAN> rng.Value > 0 And rng.Value < 14 <SPAN style="color:#00007F">Then</SPAN><br> <SPAN style="color:#00007F">Call</SPAN> Dealer<br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br> <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
HTH,