Error Trap Needed

[torweb]

Ok..I've tried several time to get something working here. I'm looking to insert an error trap that will display a msg that "The number of entries has been exceeded" This will happen when the user tries to build something with more that 40 lines of entries. I've pasted the section of code where I think it should go...any input will insure good Karma!!

Application.ScreenUpdating = False
With Sheets("RecipeCard")
.Range("A12:F60").Value = Sheets("RecipeTracker").Range("P11:U300").Value
With .Range("A12:A60")
.Replace What:="0", Replacement:="", LookAt:=xlWhole
.SpecialCells(xlBlanks).EntireRow.Delete

End With
End With

 

[SIXTH SENSE]

hi!
im not sure if A column is the reciept number that shoud not exceeed 40.
if so try this

if application.worksheetfunction.countA(range("a12:a60"))>40 then msgbox "you are over the limit of 40"

 

[torweb]

Thanks for the reply...I'll give it a try

Thank You Again!!!

 

[torweb]

Hey Hey...Sixth Sense. Good Call.

Now if I could, what can I do to send them back to revise their entries? The pop-up msg worked great, but it would be nice to send the back to revise the quantity of entries.

Please exucse me for not trying to muscle through this...but I've been working on this workbook since December 2003 and I think my brain is falling apart.

Thanks....!

 

[SIXTH SENSE]

ok!

if application.worksheetfunction.countA(range("a12:a60"))>40 then 
msgbox "you are over the limit of 40"  & chr(13) & "do it again please"
goto r   ' r is a label you wan the user to go back or have him 
               exit the procedure
exit sub 'slect between the two.