Per eliminare tutti i fogli nascosti:
Sub DeleteHiddenWorksheets()
'Se il foglio di lavoro è very hidden non sarà eliminato
'Crea la variabile per gestire i fogli di lavoro
Dim ws As Worksheet
'Impedisce la visualizzazione del messaggio di avviso
Application.DisplayAlerts = False
'Loop su ogni foglio di lavoro della cartella di lavoro attiva
For Each ws In ActiveWorkbook.Worksheets
'Controlla se il foglio è nascosto
If ws.Visible = xlSheetHidden Then
'Elimina il foglio di lavoro
ws.Delete
End If
Next ws
'Ripristina i messaggi di avviso
Application.DisplayAlerts = True
End Sub
NOTA
Fai attenzione che non ci siano interrelazioni tra i fogli rimanenti e quelli da eliminare. L’eliminazione dei fogli potrebbe causare l’interruzione delle formule o di altre funzionalità.
