In einer Arbeitsmappe sollen alle Tabellen, bis auf zwei, gelöscht werden

Sub Tabellenblaetter_loeschen()
If ThisWorkbook.Worksheets.Count > 2 Then
Application.DisplayAlerts = False
For X = 3 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(3).Delete
Next X
Application.DisplayAlerts = True
End If
End Sub