Tabelleblätter bis auf eines löschen, ohne Fehler!

Sub Datenblätter_löschen()
Application.DisplayAlerts = False           ' Unterdrückt vermutlich Meldungen
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "Daten" Then
Worksheets(i).Delete
i = i - 1
End If
If Worksheets.Count = 1 Then Exit for
Next
Application.DisplayAlerts = False           ' Meldungen wieder anzeigen
End Sub