Eliminare tutti i fogli nascosti

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à.