Aranan kelimeyi bulamayınca uyaran makro

[YASINT]

arkadaşlar aşağıda yazdığım makroya aradığım kelime yok ise uyarı veren kodu nasıl koyabilirim. Teşekkürler.

Kod:

If Cells.Find(What:="Sunta(", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate Then Rows(ActiveCell.Row).Select Selection.Delete

 

[alpi]

aşağıdaki kodu deneyin

Sub Deneme()
On Error GoTo 1
Cells.Find(What:="Sunta(", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
Rows(ActiveCell.Row).Delete
Exit Sub
1 MsgBox "Aradığınız veri bulunamadı"
End Sub

 

[YASINT]

Çok teşekkürler.