26/09/2010, 05:59
|
| | | Fecha de Ingreso: septiembre-2008
Mensajes: 113
Antigüedad: 15 años, 7 meses Puntos: 1 | |
| Eliminar hojas VBA Excel
Trato de elimihar hojas (todas aquellas menos la que se llame "Resultados" con la macro que pongo mas abajo.
Son múltiples hojas de mi macro, pero el problema es que, cada vez que se elimina una hoja, antes, me sale el siguiente mensaje de advertencia: "Pueden existir datos en las hojas seleccionadas para eliminar. Para eliminar definiticamente los datos, presione eliminar". Este mensaje me sale para todas las hojas de cálculo, lo cual elimina la rapidez y sencillez de la macro.
¿como podría eliminar las hojas de cálculo sin que salga este mensaje?
Gracias
Sub borrar_hojas()
Dim hoja As Worksheet
On Error Resume Next
For Each hoja In Sheets
If ActiveSheet.Name <> "Resultados" Then
ActiveWindow.SelectedSheets.Delete
End If
Next
End Sub |