Zahl suchen und MSGBox Meldung

Könnt ihr mir folgendes Makro so umbauen, das nur die Meldung "Zahl nicht gefunden" kommt und das Makro dan abgebrochen wird.
(Wenn die Zahl gefunden wird soll das Makro weiterlaufen.

Option Explicit
Sub urkunde12042003()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim r As Range
Dim sz As Double
Set ws1 = Worksheets("Ergebnisse")
Set ws2 = Worksheets("Urkunde")
sz = ws2.[J14]
Set r = ws1.[A2:A1000].Find(sz)
If Not r Is Nothing Then
' MsgBox "Zahl gefunden in " & r.Address(0, 0)
Exit Sub
End If
MsgBox "Zahl nicht gefunden"
End Sub

Vielen Dank!

Tschüß
Rolf