Macro para borrar todas las hojas excepto diario y resumen

Cómo hago una macro para borrar toda las hojas de un libro, pero que no borre las hojas diario y resumen. Espero su ayuda

1 respuesta

Respuesta
1

Te anexo la macro para eliminar hojas

Sub EliminaHoja()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each h In Sheets
        Select Case h.Name
            Case "diario", "resumen"
            Case Else: h.Delete
        End Select
    Next
End Sub

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas