zoeken en verwijderen " if nothing"

[rvt1982]

Beste leden,

Ik heb de volgende script, maar wil graag als de script niks kan vinden dat deze verder gaat.

Wie kan mij hier mee helpen.

Alvast bedankt.

    With Sheets("AgendaData").Columns(9)
    .Find(ThisWorkbook.Sheets("ZiekteDag").Range("AR16"), , xlValues, xlWhole).EntireRow.Delete
    .Find(ThisWorkbook.Sheets("ZiekteDag").Range("AR17"), , xlValues, xlWhole).EntireRow.Delete
    end With

 

[Warme bakkertje]

Zet boven de With Sheets ...enz On Error Resume Next

 

[rvt1982]

Thnx Rudi. precies wat is zoek.

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost.