JC2710
Not sure if this will do exactly what you want but you could give it a try. I suggest testing on a copy of your workbook.
1. Right click the sheet name tab and choose "View Code".
2. Copy the code below and Paste into the main right hand pane that opens at step 1.
3. Adjust the "E5" in the first line to match the address of your Data Validation cell.
4. Close the the VB window.
5. Test.
<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Const</SPAN> DVcell <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN> = "E5"<br><SPAN style="color:#00007F">Private</SPAN> DVcellSelected <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Boolean</SPAN><br><br><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_SelectionChange(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)<br> <SPAN style="color:#00007F">If</SPAN> DVcellSelected <SPAN style="color:#00007F">Then</SPAN><br> <SPAN style="color:#00007F">If</SPAN> IsEmpty(Range(DVcell)) <SPAN style="color:#00007F">Then</SPAN><br> Application.EnableEvents = <SPAN style="color:#00007F">False</SPAN><br> Range(DVcell).Select<br> Application.EnableEvents = <SPAN style="color:#00007F">True</SPAN><br> MsgBox "You must enter a value in cell " & DVcell<br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br> <SPAN style="color:#00007F">If</SPAN> Intersect(Target, Range(DVcell)) <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN><br> DVcellSelected = <SPAN style="color:#00007F">False</SPAN><br> <SPAN style="color:#00007F">Else</SPAN><br> DVcellSelected = <SPAN style="color:#00007F">True</SPAN><br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>