Hello again
Sorry I only just noticed this is your first post, welcome to MrExcel.
Try this in your sheet code module, right click on the sheet tab and choose View Code.
Tap F7 paste the code into the right hand code window, then ALT + F11 to return to Excel.
<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Change(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)<br> <SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> Intersect(Target, Range("B1:Z5")) <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN><br> <br> <SPAN style="color:#00007F">If</SPAN> WorksheetFunction.Max(Range("B" & Target.Row & ":Z" & Target.Row)) _<br> > Range("A" & Target.Row) <SPAN style="color:#00007F">Then</SPAN> MsgBox "Row " & Target.Row & " Over Limit"<br> <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><br><br><br></FONT>