ayuda eliminar paginas

[buddyk9]

En uno de los primeros pasos de mi macro, quiero borrar todas las hojas de cálculo del libro menos una (Resultados).
Por mucho que he buscado, no he conseguido como hacerlo, salvo este script que no me funciona bien.
¿me pueden ayudar? Gracias

Sub borrar_hojas()


Dim hoja As Worksheet
'Application.DisplayAlerts = False

Sheets("Resultados").Select

For Each hoja In Sheets
If ActiveSheet.Name <> "Resultados" Then
ActiveWindow.Select
ActiveWindow.SelectedSheets.Delete
End If
Next

End Sub