Visual Basic para Aplicaciones - Borrar hojas para excel

Hola,

Sólo escribo para darte las gracias, pero lo que yo quiero hacer es borrarlas de forma genérica (la verdad es que quiero borrar todas aquellas que estén ocultas), no mediante sus nombres (desconocidos)...

Hola, las siguiente macros hacen lo que quieres, la diferencia es que la primera te pide confirmacion y la segunda no, saludos...

Option Explicit

Public Sub Borrar_Ocultas1()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Visible = xlSheetHidden Then
ws.Delete
End If
Next ws
End Sub

Public Sub Borrar_Ocultas2()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Visible = xlSheetHidden Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True
End Sub