Como eliminar hojas de Excel sin que salga el cuadro de diálogo de verificación

[FITO]

Estoy tratando de eliminar una hoja de Excel desde Vb para
Excel, cuando llega al código de
eliminación "ActiveWindow.SelectedSheets.Delete", me sale
un mesaje "Las hojas seleccionadas se eliminarán
permanentemente, para eliminar las hojas , haga clic en
Aceptar, Para cancelar, haga clic en cancelar". Mi
pregunta es, ¿Como puedo eliminar estas hojas, sin que
salga este aviso?¿Como puedo desactivar este aviso?.

Gracias por su auyda

[Manuel Romero]

Application.DisplayAlerts=False

"FITO" <***@discussions.microsoft.com> escribi� en el mensaje news:0e5201c3a9fe$f3c57fe0$***@phx.gbl...
Estoy tratando de eliminar una hoja de Excel desde Vb para
Excel, cuando llega al código de
eliminación "ActiveWindow.SelectedSheets.Delete", me sale
un mesaje "Las hojas seleccionadas se eliminarán
permanentemente, para eliminar las hojas , haga clic en
Aceptar, Para cancelar, haga clic en cancelar". Mi
pregunta es, ¿Como puedo eliminar estas hojas, sin que
salga este aviso?¿Como puedo desactivar este aviso?.

Gracias por su auyda

[Judith]

Tengo una pregunta relacionada con el tema de eliminar hojas de excel..

Quiero escribir una macro que elimine todas las hojas del archivo EXCEPTO la
que está activa, que puede ser cualquiera de las hojas.. Es para no tener
que ir seleccionando todas las hojas una por una.. a veces el archivo tiene
4 hojas, a veces tiene 40..

Esto es lo que he escrito hasta ahora:


Sub DeleteSheets()
Dim a, i, NrWs as Integer
a = Workbooks.Count
NrWs = Worksheets.Count
For i = 1 To NrWs
Workbooks(a).Worksheets(i).Select
ActiveWindow.SelectedSheets.Delete
Next i
End Sub

Pero cuando utilizo la macro, borra 3 de las hojas y cuando llega a la 4a,
me sale el siguiente error:

Run-Time Error '9':
Subscript out of range

Qué hago mal?

Muchas gracias!

J

Post by Manuel Romero
Application.DisplayAlerts=False
Estoy tratando de eliminar una hoja de Excel desde Vb para
Excel, cuando llega al código de
eliminación "ActiveWindow.SelectedSheets.Delete", me sale
un mesaje "Las hojas seleccionadas se eliminarán
permanentemente, para eliminar las hojas , haga clic en
Aceptar, Para cancelar, haga clic en cancelar". Mi
pregunta es, ¿Como puedo eliminar estas hojas, sin que
salga este aviso?¿Como puedo desactivar este aviso?.
Gracias por su auyda

[FITO]

En compañia de un compañero, logramos hacer este código,
espero y te sirva. Este elimina todas las hojas menos la
activa

Sub DeleteSheets()
Dim a, i, NrWs As Integer
a = Workbooks.Count
NrWs = Worksheets.Count
ActiveSheet.Move Before:=Sheets(1)
For i = 2 To NrWs
Workbooks(a).Worksheets(2).Activate
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Next
End Sub

FITO

-----Mensaje original-----
Tengo una pregunta relacionada con el tema de eliminar

hojas de excel..

Quiero escribir una macro que elimine todas las hojas del

archivo EXCEPTO la

que está activa, que puede ser cualquiera de las hojas..

Es para no tener

que ir seleccionando todas las hojas una por una.. a

veces el archivo tiene

4 hojas, a veces tiene 40..
Sub DeleteSheets()
Dim a, i, NrWs as Integer
a = Workbooks.Count
NrWs = Worksheets.Count
For i = 1 To NrWs
Workbooks(a).Worksheets(i).Select
ActiveWindow.SelectedSheets.Delete
Next i
End Sub
Pero cuando utilizo la macro, borra 3 de las hojas y

cuando llega a la 4a,

Subscript out of range
Qué hago mal?
Muchas gracias!
J
"Manuel Romero" <mromerop.arroba.quita.esto.hotmail.com>

Post by Manuel Romero
Application.DisplayAlerts=False
Estoy tratando de eliminar una hoja de Excel desde Vb

para

Post by Manuel Romero
Excel, cuando llega al código de
eliminación "ActiveWindow.SelectedSheets.Delete", me

sale

Post by Manuel Romero
un mesaje "Las hojas seleccionadas se eliminarán
permanentemente, para eliminar las hojas , haga clic en
Aceptar, Para cancelar, haga clic en cancelar". Mi
pregunta es, ¿Como puedo eliminar estas hojas, sin que
salga este aviso?¿Como puedo desactivar este aviso?.
Gracias por su auyda

.