Excel - Eliminar varias hojas de excel

   
Vista:

Eliminar varias hojas de excel

Publicado por Juan (1 intervención) el 21/01/2009 01:12:07
Tengo una macro que crea varias hojas (de 1 a 20) y esas hojas creadas solo las uso una vez para imprimir y después quiero borrarlas e intente hacerlo con este código

Sub eliminar()
Dim sig As Integer
Application.DisplayAlerts = False
For sig = 2 To Worksheets.Count
Worksheets(2).Delete
Next
Application.DisplayAlerts = True

End Sub
y lo que sucede es que al correrlo solo elimina una hoja y se detiene la macro... si alguien tuviera otro código o una mejor idea ojala me pueda ayudar grx
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Eliminar varias hojas de excel

Publicado por Santiago (193 intervenciones) el 21/01/2009 04:41:53
Todo esta bien pero solamente debe cambiar:
Worksheets(sig).delete

Un saludo desde Ambato, Ecuador
SCM
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar