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
