¿Macro qué elimine Hojas con condición?

Me puedes ayudar con el código de una macro que elimine todas las hojas de una macro salvo la que se llame "FUNCIONA".

1 respuesta

Respuesta
1

Prueba la siguiente macro:

Sub Eliminar_Hojas()
  Dim sh As Worksheet
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  For Each sh In Sheets
    If LCase(sh.Name) <> LCase("FUNCIONA") Then sh.Delete
  Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas