1
Inicie Microsoft Excel. Pulse la tecla "Ctrl " plus " O ", seleccione el libro de la lista y haga clic en " Abrir".
2
Prensa " Alt " tapón " F8 " para abrir la ventana " Macros " . Escriba " RemoveSheets " en el " Nombre de la macro " y haga clic en "Crear ". Esto abre el Editor de Visual Basic (VBE ) .
3
Escriba el siguiente código en el VBE .
RemoveSheets Sub ()
wSheets = Array ("Sheet1 ", " Hoja2 ", " Hoja 3 ")
Application.DisplayAlerts = False
Para n = 0 To UBound ( wSheets )
On Error Resume Next
Hojas
( wSheets ( n)) . Eliminar
siguientes n
Application.DisplayAlerts = True End Sub
4
Reemplazar " Hoja1 ", " Hoja2 " y " Hoja 3 " con los nombres de las hojas de trabajo que le gustaría eliminar. Para añadir otro nombre a la lista , escriba una coma y inserte el nombre de la hoja antes del paréntesis de cierre de la función Array . Asegúrese de encerrar entre comillas .
5
Pulse " Alt" plus " Q " para cerrar el VBE .
6
Pulse " Alt " plus "F8" para abrir la ventana " Macros " de nuevo. Seleccione " RemoveSheets " de la lista , haga clic en " Ejecutar".