Sheet löschen ohne Nachfrage

Folgender Code funktioniert nur wenn das Sheet "Daten" existiert.
Wenn nicht, dann hält das Makro trotz On error resume next an.
Woran liegt das?

On Error Resume Next
ActiveWorkbook.Sheets("Daten").Delete
On Error GoTo 0
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)