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.
