On Error Trap Executes When No Error

I was trying to add a popup box so that if no match was found, it would report a popup box stating so.

Well, It runs successfully, however it executes every, single time! LOL


Sub Find_and_Update()

On Error Goto A

Dim Search_Range As Range, Found_Range As Range
Dim SearchFor As Variant, cell As Range

SearchFor = Range("J3").Value
Set Search_Range = Range("A:A")

Set Found_Range = Find_Range(SearchFor, Search_Range, xlValues, xlPart, False)
For Each cell In Intersect(Found_Range.EntireRow, Columns("G"))
cell.Value = cell.Value + 1
Next cell
A:
MsgBox "Not Found"
Range("J3").Select
Selection.ClearContents
Exit Sub

Range("J3").Select
Selection.ClearContents
End Sub