Nascondere tutti i fogli selezionati

Per nascondere tutti i fogli selezionati:

 
Sub HideAllSelectedSheets()

'Crea la variabile per contenere i fogli di lavoro
Dim ws As Worksheet

'Ignora l'errore nel caso si tenti di nascondere l'ultimo foglio di lavoro
On Error Resume Next

'Loop su ogni foglio di lavoro della cartella di lavoro attiva
For Each ws In ActiveWindow.SelectedSheets

     'Nasconde ogni foglio
     ws.Visible = xlSheetHidden

Next ws

'Disabilita il gestore degli errori
On Error GoTo 0

End Sub 

 

NOTA

Excel richiede almeno un foglio di lavoro attivo. Se vengono selezionati tutti i fogli visibili, per evitare un errore, il codice VBA non nasconderà l’ultimo foglio.