How do I get my error trapping to continue after it has caused an error. What happens is the error occurs, is goes to the correct trap, continues running but when there is another error, it does not trap it, it just gives the msgbox with the error. Here is the code.

VB Code:
  1. Sub CheckMFGPartInSAP()

  2.  
  3. Dim MFGNo, ZE, Sta, Item

  4. Dim SAPBook, LimaBook, CheckRow

  5. LimaBook = "Copy of D35 ENGINE ASSEMBLY SPARE PARTS MASTER MATRIX.xls"

  6. SAPBook = "SAP Dump.xls"

  7.  
  8. Do Until ActiveCell = ""

  9.     MFGNo = ActiveCell

  10.     Item = ActiveCell.Row

  11.     Workbooks(SAPBook).Activate

  12.     On Error GoTo NotFound

  13.     Range("K4:K3534").Find(MFGNo, , , , , xlNext).Activate

  14.     CheckRow = ActiveCell.Row

  15.     If Range("A" & ActiveCell.Row) = "" Then

  16.         Range("A" & ActiveCell.Row) = Item

  17.     Else

  18.         Range("A" & ActiveCell.Row) = Range("A" & ActiveCell.Row) & "," & Item

  19.     End If

  20.     Range("K4:K3534").Find(MFGNo, ActiveCell, , , , xlNext).Activate

  21.     Do Until ActiveCell.Row = CheckRow

  22.         If Range("A" & ActiveCell.Row) = "" Then

  23.             Range("A" & ActiveCell.Row) = Item

  24.         Else

  25.             Range("A" & ActiveCell.Row) = Range("A" & ActiveCell.Row) & "," & Item

  26.         End If

  27.         Range("K4:K3534").Find(MFGNo, ActiveCell, , , , xlNext).Activate

  28.     Loop

  29.  
  30. NotFound:

  31.     'MsgBox Err.Description & Chr(10) & Err.Number

  32.     Err.Clear

  33.     Workbooks(LimaBook).Activate

  34.     ActiveCell.Offset(1, 0).Activate

  35. Loop

  36.  
  37. End Sub